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n el primer volumen sobre el BASIC se descri- 
bieron las instrucciones principales de este len- 
guaje, gracias a las cuales nos “aventuramos” a 
través de la escritura de algunos programas sen- 
cillos. 
El BASIC es un lenguaje que parece estar con- 
cebido intencionadamente para los ordenado- 
res personales, aunque sus orígenes se pierden 
en los primeros tiempos de las calculadoras 
electrónicas, cuando los ordenadores personales estaban todavía 
"por venir al mundo”. 

Los ordenadores personales (utilizamos el término personal 
como equivalente y sinónimo de ordenador "casero”) son máqui- 
nas flexibles de las que podemos hacer el uso que más nos agra- 
de, Hacia mitad de los años setenta fue cuando aparecían como 
tales los primeros, Inmediatamente se distinguieron de sus her 
manos mayores, los grandes ordenadores tradicionales, por ser 
económicos, sencillos y, sobre todo, por no exigir un pl ofundo do- 
minio de la A ir 

Hasta ese momento los ordenadores eran objetos muy exclu- 
sivos, utilizados sólo por grandes empresas o por centrales ató- 
micas muy sofisticadas. Algunos años antes, la Hewlett Packard ha- 
bía utilizado el término personal para una de sus más caracterís- 
ticas calculadoras de bolsillo, pero fue el Altair 8800 (vendido en 
kits de montaje por la MITS de Alburquerque, en Nuevo Méjico) 
quien abrió la era del ordenador "en casa”, con todas las conse- 
cuencias sociales y culturales que de ello se han derivado, En el 
transcurso de muy poco tiempo nacieron el Apple 1, hermano ma- 
yor del indiscutible líder Apple Il, y el PET, que son los Tespon- 
sables de la noble dinastía de los Commodore. 


El BASIC, inmortal como el fénix, renació precisamente gra- 
cias a su adopción como principal lenguaje de los ordenadores 
personales, Actualmente éstos, como coronación de un asombro- 
so progreso tecnológico, pueden trabajar prácticamente con cual- 
quier lenguaje de programación (FORTRAN, PASCAL, COBOL, C, 
FORTH, por citar los nombres más conocidos), pero su principal 
instrumento de programación sigue siendo el BASIC, que consti- 
tuye un patrón y un indiscutible modelo de lenguaje para orde- 
nador. 

El entusiasmo por haber adoptado el simpático y fácil BASIC 
en los ordenadores personales, sin que existiera una versión ofi- 
cial patrocinada por algún ente internacional, ha traído como con- 
secuencia que cada felbricante de ordenadores personales o cada 
firma suministradora de software por encargo lo ac wa a sus 
propias exigencias, a menudo de carácter meramente comercial. 
La historia es vieja y ocurrió también con los ordenadores más 
grandes: tú compras mi hardware, pero solamente puedes utilizar 
mi software, Traicionar a un fabricante y pasarse a la competencia 
quería decir tirar a la basura el software y los programas de apli- 
cación y volver a escribir todo a partir de la nada otra vez. Así 
sucedió con los ordenadores personales; cada uno puso a punto 
su propia versión del BASIC sin dejar ningún espacio al cliente 
para orientarse hacia otras máquinas. 


LOCOMOTIVE SOFTWARE 


Actualmente las cosas están cambiando. El mercado (¡el ine- 
fable mercado!) desea la compatibilidad entre programas, siste- 
mas operativos y paquetes de software. Solamente quien respeta 
los convenios, tácitos o impuestos, sobre las normas (los estánda- 
res) supera las duras exigencias de los grandes mercados inter- 
nacionales. Y así, mientras por una parte se afirma la versión del 
BASIC nacida en la prestigiosa firma americana Microsoft, de la 
que han surgido tantos vástagos de "sangre azul”, por otra parte 
se están aclarando las posiciones de los sistemas operativos: los 
sistemas operativos CP/M y MS-DOS para los ordenadores perso- 
nales, y el UNIX para la gama superior (por algunos llamada de 
los “micro” y que tiempo atrás abarcaba a los famosos "miniorde- 
nadores”). Pero hay quien no se quiere someter a ninguna norma- 
lización y la “torre de Babel” crece otro piso más, Y así llegamos 
a un nuevo pretendiente a la corona de unificador: el sistema MSX. 

El MSX nació también en la casa Microsoft, pero inmediata- 
mente fue adoptado más allá de los océanos por los fabricantes 
del Sol Naciente, en primera instancia, y por algunos europeos 
después. Buscaba contrastar el predominio comercial americano 
y propone una unificación que, por primera vez, implica no sola- 
mente al software, sino también al hardware. 

Las buenas intenciones de los fabricantes que adoptan el sis- 
tema MSX están a favor del usuario: todos los programas escritos 
en los ordenadores MSX son transferibles a cualquier otra máqui- 
na que adopte este sistema. Y también, todos los periféricos que 
adoptan el patrón de conexión MSX se pueden conectar a cual- 
quier otro ordenador que lo utilice, Ya no tendremos necesidad, 
por ejemplo, de joysticks diferentes para cada ordenador, sino que 
cada joystick servirá para cualquier máquina. 

Los fabricantes podrían así dedicarse a mejorar el producto 
sabiendo que el mercado potencial se hace cada vez más amplio. 
Lo mismo es aplicable a los discos flexibles y a los cartuchos de 
memoria ROM o a las impresoras. Es una cuestión de normaliza- 
ción que ya se planteó otras veces, pero que en muy raras oca- 
siones tuvo éxito, Solamente los grandes intereses comerciales e 
industriales pueden imponer una normalización, y en un próximo 
futuro veremos si el sistema MSX, u otros, son capaces de impo- 
nerse definitivamente. Nosotros, los usuarios del ordenador per- 
sonal, no esperamos otra cosa sino que estos acuerdos se hagan 
una realidad tangible. 


PERIFERICOS Y CONEXIONES 


De qué BASIC hablamos 


n la parte introductoria de la primera mono- 
grafía dijimos que hablar de BASIC en gene- 
ral quiere decir describir su estructura, pre- 
sentar sus instrucciones principales, los con- 
ceptos que son comunes a todos los dialec- 
tos y advertir al lector cuando haya diferen- 
cias importantes. 

También dijimos que trataremos de hablar de 
BASIC en los términos más comunes posibles 
y que las más importantes diferencias entre versiones se encuen 
tran en las instrucciones de gráficos (dibujos en la pantallato de 
estión de ficheros (los archivos de datos), instrucciones que pre- 
tendemos presentar en esta monografía. Para establecer contacto 
con lo expuesto en el anterior volumen recordamos que las ins- 
trucciones de un lenguaje de programación se pueden dividir, a 
grandes rasgos, en cuatro familias: 


O las instrucciones declarativas, 

0 las instrucciones de entrada/salida, 

0 las instrucciones de cálculo y asignación, 
0 las instrucciones de control. , 


Esta subdivisión no es solamente conceptual, pues existe 
siempre una correspondencia física con un elemento diferente del 
hardware del ordenador. Por ejemplo, las instrucciones de entra- 
da/salida se relacionan con la gestión o control de las unidades 
periféricas (impresoras, discos, etc.), mientras que las de asigna- 
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ción se refieren a la atribución de valores a las celdillas de la me- 
moria central. 

Las instrucciones que nos proponemos estudiar en esta mo- 
nografía pueden incluirse en estas familias, pero exigen una ma- 
yor atención y, con frecuencia, una descripción más detallada que 
las vistas en el volumen anterior. Se trata de instrucciones que so- 
lamente deben ser empleadas cuando se haya adquirido un buen 
dominio de las demás (las descritas en la primera monografía) y 
cuando, frente a un error de sintaxis indicado en la pantalla, se ten- 
gan los conocimientos y la buena voluñtad de analizar el progra- 
ma y detectar el error. 

Así, hablaremos de GOSUB, que es la instrucción del BASIC 
para llamar a una suorutina. GCOSUB puede clasificarse entre las 
instrucciones de control, pero merece una posición privilegiada 
porque permile dar una cierla estructuración a los programas, 
como veremos dentro de poco. 

Haremos también alusión a algunas instrucciones particulares 
de asignación que, por falta de espacio, no se presentaron en la 
monografía anterior: RND y DEF FN, La primera, de gran utilidad, 
permite generar números al azar, mientras que la segunda pone 
a disposición del programador la posibilidad de construir funcio- 
nes (en sentido matemático) nuevas con respecto a las ya pro- 
porcionadas por el lenguaje BASIC. 

Abordaremos luego uno de los temas más complicados, el “ni- 
vel universitario” del BASIC, que es la gestión de los archivos o 
ficheros, como se dice en la jerga informática. 

Las instrucciones sobre ficheros adolecen muchísimo de las 
derivaciones propias de las distintas versiones, por lo que trata- 
remos de hablar mucho de conceptos y dar ejemplos que se re- 
fieran solamente a los ordenadores de mayor difusión. Nos excu- 
samos, desde ahora mismo, por no tratar las instrucciones de to- 
dos los ordenadores existentes en el mercado, pero ello sería ver- 
daderamente imposible. Lo que sí haremos, como en el volumen 
anterior, es presentar una "tabla de equivalencias” de las instruc- 
ciones en distintos ordenadores. 

Por último, veremos cómo se puede dibujar con el ordena- 
dor, y dentro.de este tema abordaremos los gráficos. También en 
este caso, y casi en mayor medida, se pueden describir muchos 
conceptos, pero daremos algunos ejemplos que no sean especí- 
ficos, en la medida de lo posible, de una sola máquina. Por des- 
gracia, si con los ficheros se pueden describir situaciones que 
abarcan a muchos ordenadores similares, con los gráficos cada or- 
denador es un mundo aparte, 

Con lrecuencia, incluso modelos de ordenadores de una mis- 
mea brmá se comportan, en lo que respecta a los gráficos, de ún 
modo absolilamente diferente. No hay más remedio que asimilar 
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los conceptos básicos lo que nunca vendrá mall w luego, apli- 
carlos a los casos concrelos 

Antes de comenzar a hablar de instrucciones del BASIC, y te- 
niendo en cuenta que esta monografía trata muchas instrucciones 
de entrada y de salida, consideramos oportuno hacer un examen 
de las unidades periféricas más importantes. A menudo, los pro- 
blemas de programación no son conceptuales ni teóricos, sino que 
se derivan del desconocimiento real de las unidades periféricas, 


El ordenador y sus periféricos 


Nos hemos propuesto hablar solamente del BASIC y, por con- 
siguiente, de software, pero no es posible prescindir de una bre- 
ve descripción de las unidades periféricas del ordenador si que- 
remos comprender mejor el significado y funcionamiento de las 
instrucciones que tratan de la entrada y de la salida de los datos. 

Un ordenador procesa datos, pero para que ello sea posible 
es preciso que desde el exterior dichos datos se le suministren 
junto con los programas que los deben tratar. Estas funciones de 
comunicación con el exterior no son competencia, hablando en 
términos estrictos, del ordenador propiamente dicho (o mejor di- 
cho, de la CPU), sino que se desarrollan mediante dispositivos 
adecuados, llamados unidades periféricas, o de una forma más 
sencilla, periféricos. Asl, cuando se quiere describir de una mane- 
ra concisa un sistema basado en ordenador, se dibuja la unidad 
central (la CPU) y alrededor de ella todos sus periféricos (Fig. 1). 

Los periféricos son, por ejemplo, las impresoras, las unidades 
para discos, los digitalizadores y los joysticks, pero también el te- 
clado y el monitor son periféricos. 1 

Alguien podría considerar que los periféricos tienen una im- 
portancia secundaria en relación con el ordenador. Esto no es cier- 
to en absoluto y, por el contrario, con mucha frecuencia la capa- 
cidad de un ordenador depende, en gran medida, de los perifé- 
ricos de que dispone, Basta un ejemplo para constatarlo: resulta 
inútil que un ordenador sea capaz de calcular millares de datos 
por segundo si luego su impresora sólo puede escribir diez o cien 
por segundo. 

El primer cometido solicitado a los periféricos consiste en per- 
mitir la comunicación, en uno u otro sentido, entre el ordenador y 
el hombre, 

Dentro de los periféricos de entrada (aquellos que comuni- 
can al hombre con el ordenador) se encuentran: 


0 teclados, 
0 ratón, 
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Figura 1.—Diagrama de bloques de un sistema de ordenador, con 
la unidad central de proceso (CPU) en el centro y los periféricos al- 
rededor. 


8 digitalizador (tablilla gráfica), 
O lápiz óptico (“ligh pen”), 

0 paddle (“paletas”), 

0 joystick, 


y entre los periféricos de salida (envían mensajes del ordenador): 


0 pantalla de presentación visual (o monitor), 
0 impresoras, 
0 plotter (trazador). 


La lista anterior no es completa, por supuesto, pero el con- 
cepto está claro: todos ellos son dispositivos, más o menos com- 
plejos, que permiten proporcionar informaciones al ordenador (es- 
cribiendo, dibujando, etc.) o recibirlas de él (en pantalla, en papel). 

Además de todos los anteriores hay periféricos que intercam- 
bian datos solamente con la CPU y en los cuales el hombre no in- 
lorvione de manera directa. A grandes rasgos, se pueden dividir 
on don grupos los ponléricos de almacenamiento masivo y los 
dinpomlvos de relecomanicación. El primer grupo comprende: ' 
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y Fotografía 1—Equipo AMSTRAD-464. Incluye en su configuración 
BES básica teclado, monitor y magnetófono a casete. 


0 cinta magnética, 

Ú casete, k 
9 discos flexibles (disquetes), 

0 discos rígidos. 


El segundo grupo está caracterizado por un único dispositivo sig- 
nificativo. Dicho dispositivo es el modem que permite modular 
una señal para su transmisión y, luego, demodularla (MOdula- 
dor/DEModulador). 


Periféricos de entrada/salida menos conocidos 


El ratón se asemeja a un paquete de cigarrillos con un pulsa- 
dor y en su parte inferior, una bola "aprisionada”. Al moverlo con 
la mano sobre el escritorio se desplaza en correspondencia un * 
cursor indicador en la pantalla. De este modo resulta posible im- 
partir órdenes al ordenador de una manera rápida, fácil y sobre 
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todo sin conocer nada de programación. En el espíritu de sus crea- 
dores se trata de una alternativa a los teclados tradicionales. 


1 Fotografía 2.—Caja del ratón, con su “rabo” característico, 


El digitalizador (tablilla gráfica) está constituido por una es- 
pecie de pizarra y por un lápiz; al desplazar el lápiz sobre la pi- 
zarra se envía al ordenador la forma digital de un dibujo. 


ANY Fotografía 3—Plotter moderno de alta calidad. 
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El lápiz óptico funciona de modo análogo, pero se trata de un 
lápiz provisto de una célula fotoeléctrica que se tiene que apoyar 
sobre el cristal de la pantalla, 


El oystick está provisto de una palanca móvil y a veces de 
un pulsador, a diferencia del paddle que emplea una manilla gi- 
ratoria. 

Los plotters efectúan trazados sobre hojas de papel, sobre una 
superficie plana o sobre un cilindro y pueden utilizar varios lápi- 
ces coloreados. 

Como dijimos anteriormente, muchas veces la velocidad de 
los periféricos que interaccionan con el hombre no es un factor | 
determinante para el buen funcionamiento del ordenador. Por 
ejemplo, es inútil que una pantalla sea capaz de visualizar milla- 
res de caracteres por segundo, puesto que nosotros nunca los po- 
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05d Fotografía 5.—Diversos joysticks. 


POCaÓA 


dríamos leer. Por el contrario, una impresora demasiado lenta pue- 
e plantear problemas cuando se tengan que imprimir muchos, 
formularios. 
La cuestión es diferente para los periféricos que comunican 
solamente con el ordenador, tales como los discos flexibles. En tal 
caso, siempre se busca alcanzar la máxima velocidad posible 


Periféricos de almacenamiento masivo 


Para a usuario humano, los programas y los datos son cosas 
conceptualmente muy distintas: los primeros son las instrucciones 
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E) Fotografía 6.—Tres modelos de digitalizadores, alguno muy sofisti- 
cado. 


necesarias para procesar a los segundos. Para el ordenadqr, en 
imbio, ambos son secuencias de números binarios (hileras la 

jas de ceros y unos) coriservados en la memoria central, 

Lamentablemente, la memoria central, aunque cada día más 
barata, es todavía bastante costosa y, por consiguiente, su ampli- 
tud total nunca es demasiado "generosa". Además, las memorias 
que utilizamos en la actualidad (de coste relativamente modera- 
do) son siempre volátiles y pierden su contenido al apagar el or- 
denador, Por estos dos motivos resulta muy importante que los 
programas y los datos se conserven en memorias no volátiles 

Los periféricos de almacenamiento masivo, denominados tam- 
bién memorias de masa, porque pueden contener grandes canti- 
dades de información, son precisamente de tipo no volátil, Entre 
los más importantes están: 


O cintas magnéticas, 
O tambores magnéticos, 
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0 cintas de casete magnéticas, 
0 discos magnéticos rígilos (“hard disk”), 
0 discos magnéticos flexibles ("floppy disk”), 


y además: 


0 unidad de "burbujas magnéticas”, 
6 unidad de disco óptico. 


Fotografía 7.—Periféricos de almacenamiento masivo más usados: 
casete y disco flexible. 
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Como se observará, la tecnología actualmente más difundida 
os la magnética, en la que cada bit se almacena bajo la forma de 
un campo magnético microscópico en un soporte constituido por 
óxidos de hierro depositados sobre una base de mylar (cintas, ca- 
setes y disquetes) o de aluminio (tambores y discos rígidos). Esta 
lecnología es muy similar a la empleada para las grabaciones mu- 
picales ordinarias, y tanto es así que se suelen utilizar los mismos 
magnetófonos a casete de estas últimas con los ordenadores, in- 
cluso para grabar datos y programas. 

Un parámetro muy importante en las memorias de masa es el 
llempo de acceso a los datos, es decir, el tiempo necesario para 
acceder a una información determinada. Los discos rígidos, que 
giran continuamente a gran velociad, tienen tiempos de acceso 
muy pequeños; las, cintas magnéticas y las cintas de casete, por 
el contrario, son muy lentas por cuanto que es preciso desarrollar 
toda la cinta que precede al punto buscado, esto es, se trata de 
dispositivos 


Conexiones serie y paralelo 


Para comprender mejor la forma en que trabajan los periféri- 
cos con el ordenador y, por consiguiente, para saber cómo deben 
escribirse las instrucciones de entrada y de salida de datos en los 
programas, es útil aclarar un par de conceptos de hardware. A tal 
fin hablaremos de conexiones en serie y en paralelo entre dos dis- 
positivos. 

En las conexiones en paralelo (Fig. 2) hay un hilo eléctrico 
por cada bit objeto de transmisión. Si se tienen que transferir 8 
bits existirán, pues, 8 hilos (más el de masa, claro). Cada bit se 
transmite como un breve impulso eléctrico. De forma análoga, ha- 
brá tantos hilos como bits, incluso en los ordenadores más gran- 
des de 16 o de 32 bits, si se conectan en paralelo a cualquier pe- 
riférico. 

En el caso de conexiones en serie (Fig. 3), por el contrario, 
los bits se envían uno a uno a lo largo de un solo hilo (más el de 
masa) a intervalos de tiempo periódicos. La transmisión de datos 
en serie se utiliza para conexiones económicas o en donde no ha 
alternativas (por ejemplo, para poder explotar las líneas telefóni- 
cas). Este sistema es muy similar a la comunicación telegráfica en 
código morse y es prácticamente la misma utilizada por los tele- 
tipos ordinarios, 


Los buffers o memorias tampón 


Un elemento importante, cuando se habla de intercambios de 
datos entre dos dispositivos, es el buffer o memoria tampón. He- 
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EA 
sl A: 
== A 
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Í q 
Bit de parada (stop) Bit de comienzo (start) 


Figura 3.—Conexión en serie: por una sola línea se transmiten su- 
cesivamente todos los bits. 


mos supuesto, al hablar de conexiones en serie y en paralelo, que 
los dispositivos transmisores y receptores trabajan a la misma ve- 
locidad. Por ejemplo, si el ordenador transmite 2 Kbytes por se- 
gundo (2.000 bytes por segundo), el periférico debe poder reci- 
bir a la misma velocidad. 

No siempre es posible esta igualdad de velocidad. Los tvir- 
cuitos electrónicos pueden trabajar con gran rapidez (tiempos del 
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miden de magnitud de microsegundos o incluso inferiores), mien- 
las que los dispositivos con partes mecánicas son mucho más len- 
lo Si suponemos que estos últimos trabajan a una velocidad de 
milisegundos, que es muy elevada para su propia naturaleza, se- 
quirán siendo mil veces más lentos que los dispositivos electró- 
nicos (en un microsegundo hay mil milisegundos). 

Por ejemplo, una unidad de disco no puede tener acceso a 
un dato hasta que el giro del disco no lleve el dato deseado bajo 
la cabeza de lectura/escritura. Si el ordenador tiene que escribir 
100 datos en un disco sería inadmisible tener que esperar cada 
vez una vuelta completa del disco (que suele tardar 200 milise- 
gundos por vuelta) y, por consiguiente, unos 20 segundos en total. 

Se recurre entonces a la técnica de la memoria buffer. Buffer 
significa memoria intermedia. Actúa como una especie de amor- 
liguador, al igual, por ejemplo, que los topes de los vagones de 
ferrocarril. También la batería del automóvil es un ejemplo de buf- 
fer. En nuestro caso, sin embargo, los buffers no amortiguan acu- 
mulando energía, sino datos. 

Los datos producidos por la CPU se acumulan en el buffer, 
que no es otra cosa que una pequeña zona de memoria RAM, sin 
hacer más lento el trabajo de la propia CPU (Fig. 4). Cuando el buf- 
ler está lleno, se descarga enviando sus datos hacia el periférico 
(a veces, incluso, sin necesidad de que intervenga la CPU). En el 
ejemplo de la unidad de disco, el tiempo necesario para la ope- 
ración se reduce así a una sola vuelta del disco. 


dl Figura 4,—Un buffer trabaja como un depósito de datos intermedio, 
, 


A veces, el buffer está incorporado en el propio periférico, 
como en el caso de algunas impresoras que admiten un millar de 
bytes a la velocidad máxima con que los produce la CPU; los acu- 
mulan en una memoria buffer interna y luego "con toda calma” los 
imprimen a la velocidad permitida por la mecánica. Así, mientras 
tanto, la CPU puede desempeñar otras tareas. 
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SUBRUTINAS Y DEFINICION DE FUNCIONES 


scribir programas en BASIC, como en cualquier 
otro lenguaje de programación, puede ser fácil 
y agradable. A menudo se obtienen resultados 
satisfactorios incluso con programas solamente 
de algunas decenas de instrucciones, pero cuan- 
do se escriben programas complejos profesio- 
nales, pueden ser necesarias centenares o mi- 
llares de líneas de programa. En este caso, el 
modo en el que se escribe el programa, es de- 
cir, su estructura como la llaman los expertos, se hace fundamen- 
tal tanto para la corrección de su funcionamiento como para su le- 
jibilidad, La legibilidad de un programa consiste en que cualquie- 
ra que observe su listado pueda comprender cuál es el principio 
del funcionamiento, o dicho de otro modo, el algoritmo base del 
propio programa. De la relación entre programas y algoritmos ha- 
blamos ya ampliamente en la primera monografía sobre el BASIC, 

El BASIC no es un lenguaje adaptado al tipo de programa- 
ción que los expertos denominan estructurada, como es el caso 
del lenguaje PASCAL o del más moderno ADA. ¿En qué consiste 
ésta? Intentar aclarar esta materia, incluso para los programado- 
res de BASIC, nunca viene mal. 

Dar una definición de programación estructurada nos podría 
llevar mucho tiempo y, dado el carácter divulgativo de estas mo- 
nografías, nos complicaría las ideas en lugar de aclararlas. Diga- 
mos que un programa que tenga intenciones estructuralistas es 
un programa escrito y desarrollado con claridad que puede ser 
comprendido por cualquiera que conozca el lenguaje de progra- 
mación que utiliza Con demasiada frecuencia vemos programas 
que no son comprensibles ni siquiera para personas muy versa- 
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das en BASIC. En ocasiones hasta el mismo autor, transcurrido al- 
gún tiempo, no llega a comprender qué significa su listado, y si 
debe buscar un error o realizar una modificación "a tientas” (son 
los denominados “programas laberintos”), 

¿Cómo es posible que suceda esto? Basta con utilizar muchas 
instrucciones GOTO o emplear el mismo nombre de variable en 
varios puntos del programa con significados diferentes. Un pro- 
grama es un proceso lógico que debe tener un comienzo y un fi- 
nal, y cada disgresión debe señalarse con claridad. Si un deter- 
minado grupo de instrucciones tiene uhr cometido concreto E 
gamos delante una instrucción de comentario (REM) para aclarar 
dicho cometido, o bien utilicemos los dos puntos (:) después de 
un número de línea (u otro carácter permitido por el BASIC) para 
separar grupos de instrucciones y dar un aspecto arquitectónico 
al programa. Veamos un ejemplo: 


100 REM PROGRAMA PARA EL CALCULO 

110 REM DEL PASO 

120 REM DEL COMETA HALLEY 

130 REM 

140 REM 

150 REM ULTIMO PASO DEL COMETA HALLEY 
160 REM 

170 REM 

180 REM CALCULO DE LA ORBITA 

194 REM 

200 REM 

210 REM 

220 REM PERIHELIO EL DIA 9 DE FEBRERO DE 1986 
230 REM 

240 REM 

250 REM PROXIMO PASO EN El. ARO 2062 


Pero supongamos ahora que queremos desarrollar un nuevo 
programa. Tendremos que proceder con mucho orden. Tuvimos 
ya ocasión de decir que la peor manera de realizar un programa 
es la de sentarse inmediatamente delante del ordenador y comen- 
zar a escribir de golpe las instrucciones como si se tratase de de- 
sahogar un impulso de inspiración literaria. Ante todo, tenemos 
que escribir en un papel los pasos principales del programa (o 
sea, del algoritmo) con ideas muy claras sobre lo que queremos; 
y luego partiremos de esta descripción para desarrollar la estrue- 
tura del programa. 

Veamos un ejemplo común para muchos casos prácticos, 
como es la escritura en un fichero (archivo) de nombres recibi- 
dos desde el teclado, Los pasos del programa son los siguientes: 


l, Enviar a la pantalla los mensajes de aviso al usuario ini- 
ciales. 
2, Pedir un nombre. 
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Ur Figura 1.—Diagrama de bloques explicativo, a partir del cual se es- 
fu cribirá el programa. 


28 


3. Comprobar la validez formal del nombre. 

4. Si es correcto, escribir el nombre en el archivo (disco fle- 
xible). En caso contrario, volver a pedirlo (2). 

5, Preguntar si hay más nombres que introducir y, si fuera así, 
volver al punto 2; en caso contrario, terminar el programa. 


Antes de proseguir, dibujemos el diagrama de bloques de 
nuestro programa, tal como lo hemos definido hasta ahora (Fig. 1) 

Para facilitar esto, entre otras cosas están las subrutinas, Una 
subrutina es, en esencia, una serie de irfstrucciones, separadas de 
la secuencia principal del programa, que cumplen una misión es- 
pecífica. Tiene un punto de comienzo y uno de final propios. Cuan- 
do se la quiere usar desde el programa “principal” se hace un sal- 
to especial al punto de comienzo y, al llegar alfinal, la subrutina 
hace otro salto a la instrucción siguiente en el programa principal, 
a aquella por la que fue "llamada", El salto a la subrutina se realiza 
con la instrucción GOSUB, (Fig. 2). 

Si al escribir el programa logramos mantener clara la división 
entre los cinco puntos anteriores, habremos hecho una buena la- 
bor. 


SECUENCIA 
PRINCIPAL 


100 GOSUB 


..049050640U00:4: 


y A 


PROGRAMA 


MN “gue 2. —Forma de emplear una subrutina desde el "programa 
principal”. 


GOSUB 


Si se fija en el punto 3, relativo a la comprobación de la vali- 
dez de los datos recibidos a la entrada, observará que se trata de 
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algo separado, desde el punto de vista conceptual, del núcleo del 
programa. El punto 3 podría “confiarse” a una subrutina de servi- 
ulo, que se ocupe exclusivamente de efectuar las comprobacio- 
nos, y a la que acudiríamos cada vez que necesitásemos efectuar 
una, 

Pensándolo bien, también el punto 4 puede llegar a ser una 
hubrutina. En realidad, se ocupa solamente de llevar a un archivo 
los nombres. En esta primera escritura del programa hemos con- 
hiderado oportuno grabar el archivo en un disco flexible, pero po- 
drlamos querer hacerlo también en una cinta de casete. Si utiliza- 
mos una subrutina será muy fácil cambiar solamente las instruc- 
ciones necesarias para pasar del disco a la cinta de casete, mien- 
lras que, si no la usamos tendríamos que cambiar el programa 
principal, y ello resultaría más complicado. 

El empleo de subrutinas, que dependen de un programa prin- 
c]pal, nos permite imaginar la estructura de bloques de un pro- 
(rama de una manera diferente y más flexible. En la Figura 3 se 
llustra la forma en que se modifica el diagrama de bloques ante- 
rior al emplear subrutinas. 

Veamos ahora cómo se utiliza la instrucción GOSUB para lla- 
mar a las subrutinas en BASIC. En la jerga informática se dice lla- 
maruna subrutina, porque el FORTRAN, el primer lenguaje que 
utilizó las subrutinas, tiene una instrución CALL (Mlamar) que sirve 
precisamente para activar la ejecución de las subrutinas, En la 
práctica se dice que el programa principal llama a las subrutinas. 
Siempre por motivos históricos se habla también en BASIC de 
paso de los parámetros para indicar el intercambio de datos y va- 
tables entre el programa principal y las subrutinas, pues en FOR- 
RÁN antes de poder emplear una subrutina es preciso “comuni- 
carle” sobre qué parámetros o argumentos tendrá que actuan En 
el BASIC esto no es estrictamente necesario porque las subruti- 
nas no son programas totalmente separados, sino que forman un 
lodo junto con el propio programa principal, compartiendo la me- 
moria del ordenador, con lo que todas las variables son comunes. 


Un ejemplo de subrutina 


Para ver como se utilizan las subrutinas, tratemos de escribir 
in programa que haga uso de ellas. 

Un caso muy frecuente cuando se trabaja con los ordenado- 
res es el de que se tenga que dar una fecha nada más conectarlo. 
Un ordenador no está obligado, a no ser que lo programemos para 
ello, a comprobar lo que le comunicamos, y así, si quisiéramos bro- 
mear y dar fechas como el día 66 del mes 25 del año 234, lo po- 
dríamos hacer con “toda impunidaa". 
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Figura 3.—Diagrama de la figura 1 modificado por el empleo de 
subrutinas. 


En cambio, es muy fácil que al menos la corrección formal de 
tna fecha sea controlada, el día del mes debe estar comprendido 
entre los valores establecidos, el número del mes no debe ser su- 
perior a 12, etc. Por consiguiente, si en un programa del tipo de 
control de un registro civil tenemos que pedir muchas veces las 
lochas, merece la pena dedicar algún tiempo a establecer una 
subrutina de control, llamada inmediatamente después de que sea 
introducida una fecha, y que compruebe su validez. 

Supongamos que en varios puntos de un programa hay ins- 
Irucciones, como las líneas 100 y 110 del ejemplo siguiente, en las 
cuales se visualiza un mensaje de aviso: "dar la fecha como día, 
mes y año”, y luego se ejecuta una instrucción INPUT para recibir 
la respuesta a la entrada (las puestas a cero de las tres variables 
D, M y A que puede observar en la línea 110 son una precaución 
para evitar que permanezcan en estas variables eventuales valo- 
res de una fecha anterior). Resulta conveniente siempre poner a 
coro (“hacer un reset" de) las variables que se utilicen en opera- 
ciones de entrada para evitar que, si pulsáramos inmediatamente 
la tecla Return (o Enter o la equivalente), estas variables pudieran 
conservar un antiguo valor. 

Inmediatamente después de la introducción de la fecha !la- 

amos a la subrutina para su comprobación: GOSUB 230. El nú- 
mero 230 es el equivalente al "nombre de la subrutina” y es jus- 
lamente el de la primera línea de la subrutina. Si tuviéramos en 
el programa otras subrutinas, tendríamos que definirlas con otros 
números de línea, como es lógico, El programa salta, pues, para 
ejecutar la línea 230, pero en su interior el ordenador “toma nota" 
del número de la siguiente línea (170) a la que retornará al final 
de la subíutina. 


DO REM OOOO IO OIOIOOGIO OOOO 

20 REM k EJEMFLO DE SUBRUTINA »* 

30 REM POCO IO 

40 REM 

100 PRINT "DAME LA FECHA COMO DD, MM, AA" 
110 D*O0:¿M*0O: A=0: INPUT D,M,A 

120 REM 

130 REM -=---"-LAMADA A LA SUERUTINA="="= 
190 REM our DE CONTROL DE FECHA==..- 
150 REM 

140 GOSUE 230 

170 REM 

180 1F 000 THEN PRINT "LA FECHA ES CORRECTA" 
190 GOTO 100 

200 STOP 

210 REM 

220 REM 

230 REM SUBRUTINA DE CONTROL DE FECHA 
240 REM 

250 RESTORE: CC=0 

260 1F M1 OR M>12 THEN CC=1:G60TD 320 
270 FOR K=1 TOM 
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280 READ LM 

290 NEXT K 

ZOO 1F G%1 DR GLM THEN CO=1:G0TO 340 
310 1F A%0 THEN CO=s1:¿G0TO 350 
320 RETURN 

330 FPRINT "MES EQUIVOCADO" 
330 PRINT "DIA EQUIVOCADO" 
250 FRINT "ARO EQUIVOCADO" 
360 REM 

370 DATA 31,29, 31,30, 31,30 
380 DATA 31,31,30,31,30,31 


Antes de pasar a examinar cómo se-hizo la comprobación de 
la fecha, hagamos algunas observaciones. Las variables sobre las 
que actúan las subrutinas son, en principio, comunes a todo el pro- 
grama, por lo que todo lo que la subrutina utiliza o calcula se pone 
inmediatamente a disposición del programa que efectúa la llama- 
da, a diferencia de lo que sucede en otros lenguajes, tales como 
el FORTRAN, en los cuales es necesario explicitar las variables o 
datos compartidos y enviar y recibir los datos a y de las subruti- 
nas, Una segunda observación es que toda subrutina se da por ter- 
minada con la instrucción RETURN. Pueden existir varias instruc- 
ciones RETURN en una subrutina, como varias instrucciones END 
en un programa, pero lo importante es que siempre se vuelve con 
ellas al programa principal y no con una instrucción de salto 
GOTO, 

La utilización de GOTO para salir de una subrutina es un gra- 
vísimo error, aunque quizá no lo vea inmediatamente, pero que 
destruirá un programa cuando menos se lo espere, Ha de tenerse 
presente que la instrucción RETURN no tiene nada que ver con 
la tecla RETURN (Enter o cualquier otra equivalente), que, por el 
contrario, sirve para “cerrar” una línea introducida por el teclado, 

Como ha podido ver, en el ejemplo usamos la variable CC 
para informar al programa que realizó la llamada si la fecha es co- 
rrecta o no, Estas variables se denominan flags o markers (ban- 
deras, indicadores) y proporcionan información lógica binaria 
muy sencilla, como la de si todo ha sido correcto o hubo algo equi- 
vocado, si está bien o está mal, etc. 

Dediquemos ahora algunas líneas para ver cómo comproba- 
mos la fecha. En primer lugar, analizamos el mes (línea 260). Si he- 
mos indicado un mes no comprendido entre 1 y 12, se pone in- 
mediatamente CC=1 (fecha equivocada) y luego se imprime el 
mensaje "mes equivocado” y con la instrucción RETURN se vuel- 
ve al programa principal. Aquí, antes de proseguir, se observa el 
estado del indicador (“flag”) CC, si es igual a cero, la fecha será 
correcta y el programa lo indica y prosigue (en el ejemplo, con 
miras a la sencilez, se pasa a solicitar otra fecha). 

Volvamos a la subrutina. Si el mes es correcto, se analiza el 
número del día, Puesto que cada mes tiene una duración diferen- 
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lo ge recurre al artificio de leer la duración de los meses a partir 
do un archivo de instrucciones DATA con un bucle FOR NEXT. 
Por ejemplo, para M=5, correspondiente al mes de mayo, el bucle 
lermina con la quinta lectura, quedando en LM el valor 31. La ins- 
Inicción RESTORE en la línea 250 sirve para inicializar el archivo 
de las instrucciones DATA antes de cualquier utilización de las 
vubrutinas. Si el día dado a la entrada está comprendido dentro 
dle los límites permitidos, se pasará a examinar el año. Aquí, el con- 
lrol es muy banal: se excluyen solamente los años negativos. 

Las comprobaciones de una fecha podrían ser bastante más 
complejas; así se podrían tener en cuenta los años bisiestos, ex- 
cluir o corregir las fechas anteriores al año 1583 (año de comien- 
vo del calendario Gregoriano), excluir los números decimales, ad- 
milirlos meses en letras, admitir solamente dos cifras para los años 
(tal como '28 u '85), etc, 

De estas últimas consideraciones se deduce cuál es la utili- 
dad de las subrutinas. Si quisiéramos mejorar o cambiar nuestra 
hilina de control sería suficiente sustituir el conjunto de sus ins- 
Hhueciones sin tener que perturbar todo el programa. Basta saber 
y ¡ecordar que las variables de entrada a la subrutina son M, D y 
A y que la validez de la fecha viene indicada con CC igual a cero. 

Recordemos que la instrucción GOSUB se indica en los dia- 
qramas de bloques con un rectángulo con los lados verticales do- 
bles (Figs. 3 y 4). Por el contrario, la subrutina propiamente dicha 
no representa con un diagrama independiente que termina con la 
instrucción RETURN (Fig. 4). 


Niveles de subrutinas 


Es preciso tratar por separado lo que concierne a la posibili- 
dad de que una subrutina sea llamada por otra (en la jerga infor- 
mática se habla de subrutinas anidadas, al igual que vimos pasa- 
ba con los bucles FOR/NEXT, 

Entre las instrucciones de una subrutina puede existir una 
hueva instrucción GOSUB que llame a otra. Podría también, desde 
v] punto de vista teórico, llamar a la misma subrutina de partida 
(ol entrelazamiento resultante se denomina recursividad pero 
pocas veces se hace esto en la práctica. 

¿Qué ocurre en estos casos? Algo parecido a lo que ocurra 
con el anidamiento de los bucles FOR/NEXT, Cuando el progra- 
ma encuentra la instrucción RETURN de la subrutina más interior, 
prosigue la ejecución a partir de la instrucción siguiente a la úl- 
lima GOSUB leída, Después de la segunda instrucción RETURN 
vuelve a la GOSUB precedente, y así sucesivamente hasta volver 
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Figura 4. —Forma en que se indican las subrutinas en los diagramas 
de bloques. 


al final al programa principal. La Figura 5 ilustra el flujo lógico en 
el caso de subrutinas anidadas. 

Una subrutina puede ser llamada desde niveles diferentes; así, 
puede ser llamada por el programa principal o por otra subrutina. 
En cualquier caso, volverá siempre al punto desde donde partió 

su llamada con la instrucción GOSUB, 

Existen versiones del BASIC en-las que una subrutina puede 
llamarse a sí.misma un número limitado de veces sin crear pro- 
blemas; se trata de un caso de recursividad parcial La recursivi- 
dad permite aplicaciones muy interesantes, pero es un instrumen- 
lo que solamente suele emplearse con los lenguajes estructura- 
dos, tal como el Pascal, En BASIC, en cualquier caso, es mejor evi- 


32 


1) Figura 5.—Subrutina anidadas. 


tar que una subrutina se llame a sí misma tanto de forma directa 
como a través de otra subrutina. 

Por lo general, el BASIC establece un límite, bien preciso, al 
número máximo de niveles de subrutinas o, lo que es lo mismo, 
al número de llamadas una dentro de la otra. Aunque este núme- 
ro sea bastante elevado (18 o más), para algunas aplicaciones pue- 
de no ser suficiente por depender también del número de butles 
FOR NEXT realizados. 


Definición de nuevas funciones DEF FN 


Después de haber hablado de subrutinas y de haber visto su 
utilidad para separar de un programa principal algunos grupos de 
instrucciones repetitivas, estudiaremos las funciones definidas por 
vl usuario, que tienen un empleo similar al de las subrutinas. 

En la primera monografla, al introducir las expresiones arit- ' 
méticas indicamos que en el lenguaje BASIC están disponibles 
muchas funciones matemáticas que se pueden llamar con el sim- 
ple empleo de su nombre. Por ejemplo, si tenemos necesidad de 
determinar la raíz cuadrada de un número X, bastará escribir SQR 
(0. En el BASIC existen funciones para el cálculo de senos, cose- 
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nos, tangentes, logaritmos, etc. Con un poco de atención se com- 
prende cómo las funciones 'SQR, SIN, COS, TAN, LOG, etc., son 
subrutinas muy particulares y privilegiadas, porque cada una de 
ellas tiene su nombre literal, igual que una variable, Se trata de 
subrutinas que el fabricante del ordenador ha introducido, de una 
vez por todas, en el intérprete BASIC para mayor comodidad de 
los programadores, 

Puede suceder, al escribir programas complejos y de tipo 
científico, que se tenga la necesidad de definir nuevas funciones 
que interesen solamente en un determinado programa. El BASIC 
le permite hacerlo con la instrucción DEF FN (definir función). La 
nueva función puede utilizarse posteriormente con absoluta liber- 
tad, pero solamente en el interior del programa donde se definió, 
lo mismo que sucedió con las subrutinas, 

Veamos un ejemplo muy sencillo, pero de utilidad para este 
propósito. Supongamos que hay que escribir un complicado pro- 
grama de geometría en el que se deben calcular, muchas veces, 
volúmenes de esferas. El volumen de una esfera, lo recordamos 
bien, viene dado por la fórmula: 


V = (4x PIx R9/3 


en donde R es el radio y Pl es el valor de la constante matemática 
rr (3,141592...). 

Al comienzo del programa, antes de que aparezca la necesi- 
dad de determinar el volumen de una esfera, preparamos la nue- 
va función del modo siguiente; 


30 DEF FN VOL (X)=(4kFIARRAD) /3 


X es una variable ficticia ("dummy”) de la definición que sirve ex- 
clusivamente para establecer sobre qué magnitud debe calcular- 
se la función (en nuestro caso, el radio), Después de la linea 50, 
cada vez que se ha de calcular el volumen de una esfera se em- 
plea la nueva función FNVOL(X), en donde el prefijo FN es obli- 
gatorio y a X se le asigna el valor del radio. Ha de tener presente 
que la variable argumento de la función se denomina ficticia por- 
que actúa solamente en el interior de la función; dicho de otro. 
modo, en el programa podría existir otra variable X que no tuvie- 
ra ninguna interacción en absoluto con la otra, Así, el volumen de 
la Tierra, conociendo su radio de 6.380 kilómetros, viene dado por 


100 PRINT FN VOL (4380) 
RUN 


1,0878 E+12 


(10878 millares de millones de kilómetros cúbicos). 
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Evidentemente, al igual que hemos puesto un valor fijo, po- 
drlamos haber usado una variable R, por ejemplo, Así, sería: 


100 PRINT FNVOL (R) 


y a R le daríamos antes el valor deseado. 

Fl nombre de una función definida en un programa debe ir 
precedido por FN y sigue las mismas reglas de los nombres de 
variables. La mayor parte de los dialectos del BASIC permiten 
crear solamente funciones numéricas, pero en algunos casos son 
posibles también las funciones de cadena. Por ejemplo: 


50 DEF FN ASTR(XS)="XxR"+XS+"EKL" 


define una función de cadena que pone delante y detrás de la 
dada asteriscos. 

La utilidad de las funciones DEF FN se aprecia en su justo va- 
lor sobre todo cuando la expresión del cálculo de la función es 
muy complicada, pues se evita así tenerla que volver a escribir 
on más puntos del programa. 
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OTRAS INSTRUCCIONES DE SALTO 
Y LOS NUMEROS ALEATORIOS 


ON GOTO y ON GOSUB 


xiste en el lenguaje BASIC un par de instruccio- 
nes que los puristas de la informática llaman "de 
salto calculado" porque el salto, o la llamada de 
las subrutinas, se realiza después de haber cal- 
culado una determinada variable numérica. 
Veamos, a titulo aclaratorio, un ejemplo: 


100 ON K GOTO 150,200, 220,70 
110 ... 


Cuando el programa encuentra la instrucción 100, lo primero 
que hace es analizar el valor de la variable K y transformarlo en 
un número entero, Si K es igual a 1, el programa salta a la línea 
150; si es igual a 2, salta a la segunda línea indicada (200); si es 
igual a 3, salta a la tercera línea (220), y así sucesivamente. En nues- 
tro ejemplo sólo se indican cuatro números de línea, y, por con- 
siguiente, si K toma un valor superior a 4, el programa no realiza 
ningún salto y prosigue en la línea 110. Lo mismo sucede si K es 
negativo o nulo. El número de líneas que se pueden indicar des- 
pués de GOTO y, por consiguiente, de saltos posibles, no. tiene 
prácticamente ningún límite y depende exclusivamente de la lon- 
gitud máxima qué pueda tener una línea de BASIC en nuestro or- 
denador, 

La instrucción ON GOSUB se comporta del mismo modo que 
ON GOTO, con la excepción de que llama a subrutinas, al reali- . 
5 el "retorno" prosigue con la instrucción siguiente al ON GO- 
SUB. 
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La utilización de estas instrucciones es fácil de imaginar. Se 
pueden realizar bifurcaciones múltiples, y no solamente binarias, 
como ocurre con la instrucción IF THEN. Por ejemplo, para con- 
trolar un menú de opciones que ofrezca cuatro posibilidades, se 
puede pedir a la entrada un número del 1 al 4 correspondiente a 
la elección, y luego, utilizar este valor para ejecutar la parte de pro- 
grama deseada. La estructura de dicho programa aparecerá como 


sigue: 


100 REM RRE RARARA RA 

110 REM 4 MENU k 

120 REM ARKRARARIRARIA 

130 REM 

140 PRINT "TIENES CUATRO POSIBILIDADES" 
150 PRINT "TECLEA UN NUMERO ENTRE 1 Y 4” 
160 FRINT “CUALQUIER DTRO NUMERO HACE TERMINAR" 
170 REM 

180 INPUT Xx 

1120 REM 

200 ON X GOTO 300,300, 700, 900 

210 END 

220 REM 

230 REM 


300 OPCION 1 
500 OPCION 2 
700 OFCIÓN 3 


900 OPCION 4 


La función RANDOM (RND) 


En algunas situaciones puede ser muy cómodo tener a nues- 
tra disposición números aleatorios, no previsibles a priori (en in- 
glés, “Random number”). Una aplicación típica la encontramos en 
los juegos: el ordenador extrae números al azar que el jugador no 
conoce y sobre los cuales está planteada la normativa del juego. 
Puede tratarse de una partida de "mastermind” o del vuelo de as- 
tronaves enemigas en una guerra estelar. 

Para obtener números aleatorios, el lenguaje BASIC pone a 
disposición del usuario la función RND (abreviatura de la deno- 
minación inglesa “random”), que calcula un valor comprendido en- 
tre O (inclusive) y 1 (exclusive). El empleo de RND es muy fácil, 
puesto que basta utilizarla como una variable numérica. Cualquie- 
ra de sus llamadas, en un mismo programa, proporciona un valor 
aleatorio diferente, 

El comportamiento de la función RND no es idéntico en todas 
las versiones del BASIC. Por lo general, RND(1), o poniendo como 
argumento en lugar del 1 cualquier otro número positivo, calcula 
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ol valor aleatorio sucesivo, mientras que RND(0) calcula nueva- 
mente el último valor extraído. Es decir: 


PRINT RND(1) 
0, 725372155 

FPRINT RND(1> 
0. 3843372083 

PRINT RND(0) 
O. 384837283 


Es importante destacar que el generador de números aleato- 
ros contenido en la función RND no es, en realidad, verdadera- 
mente aleatorio (es evidente que ello estaría en contradicción con 
la naturaleza determinística del ordenador). Es más correcto ha- 
blar de secuencia de números pseudoaleatorios, obtenida aplican- 
do un algoritmo particular; en la práctica, cualquier número se ob- 
tiene a partir del precedente. 

Como cualquier programa, también el generador de números 
aleatorios (que es un programa en lenguaje máquina) requiere da- 
tos a la entrada. Precisa un número (denominado base de la se- 
cuencia) a partir del cual iniciar la cadena de números aleatorios. 

A falta de esta base, el generador partirá del número conte- 
nido en una celdilla de la memoria del ordenador en el momento 
del encendido. 

A veces es posible hacer partir la secuencia, desde un núme- 
ro conocido; es decir, se puede inicializar el programa generador, 
Esto último puede hacerse para obtener secuencias siempre igua- 
les o siempre diferentes. Algunos ordenadores, para hacerlo, uti- 
lizan la instrucción RANDOMIZE y otros requieren un valor nega- 
tivo como argumento de la función RND. 

Considerando que la función RND suele generar números en 
el intervalo entre O y 1, veamos cómo es posible pasar a un inter- 
valo diferente, Por ejemplo, para generar números aleatoriok en- 
teros entre 1 y 100 se puede escribir. 


INT (LODKRND(1)+1) 


en efecto, 100*RND genera números entre O y 99,9999, Al añadir 1 
se obtienen números entre 1 y 100,9999, La función INT suprime 
luego la parte decimal y de este modo sólo quedan los enteros 
entre 1 y 100, 

De modo análogo se pueden obtener números aleatorios com- 
prendidos en cualquier intervalo, incluso números negativos. 


Un programa para barajar cartas 


Veamos un programa que utiliza la función RND para generar . 
números aleatorios, En este caso vamos a simular la operación 
aleatoria de mezclar los naipes o barajar. 
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Supongamos, con fines prácticos, que las 52 cartas de un mazo 
de baraja francesa están numeradas del 1 al 52. 

Distribuir estas cartas equivale, en la práctica, a generar al 
azar los números comprendidos entre 1 y 52. 

Damos el programa en una primera versión, más sencilla, que 
se limita a imprimir las cartas a medida que salen o se dan. Si se 
quiere conservar el mazo mezclado, basta utilizar un nuevo vec- 
tor en el cual introduciríamos las cartas mezcladas: 


100 REM aaa alabar 
110 REM * HARAJANDO CARTAS k 

120 REM * LAS CARTAS SE INDICAN —* 

130 REM * CON LOS NUMEROS 1 4 352 

VAIO RE OOOO IO OOOO 

1350 REM 

150 DIM F(52): REM INDICADOR DE CARTAS APARECIDAS 
170 REM 

180 FOR I=1 TO 52 

190 C=INT (S524RND(1)+1) 

200 1F F(C)<>0 THEM GOTO 190 

210 F(C)I*l¿PRINT C:REM IMPRIME LA CARTA 
220 NEXT 1 


En algunas versiones del BASIC, si este programa se ejecuta 
varias veces, la sucesión de cartas es siempre la misma, por cuan- 
to que la función RND se comporta siempre del mismo modo y 
genera la misma secuencia de números. Á menudo es necesario, 
como en el caso de los juegos de azar, que los números aleato- 
rios sean siempre diferentes, incluso entre sucesivas ejecuciones 
del programa. Para obtenerlo basta anteponer la instrucción RAN- 
DOMIZE que hace partir "al azar” los números de la función RND 
(por ejemplo, podríamos colocarla en la línea 175). 

En un programa de esta clase, la única dificultad de progra- 
mación consiste en evitar generar números iguales, pues signifi- 
caría que daríamos dos veces la misma carta. Para solventar este 
inconveniente se utiliza una variable vectorial F() como indicador 
(“Flag”) de las cartas que se han dado ya; el indicador F se con- 
trola en la línea 200, En la línea 190 se genera al azar un número 
entero comprendido entre 1 y 52 (una carta de juego) y si la carta 
salió ya (F<>0) se obtiene otro número. En caso contrario, el nú- 
mero de la carta se imprime y el indicador F(C) correspondiente 
se pone igual a 1. 


El jugador profesional 


Si ejecuta el programa que acabamos de describir, se perca- 
tará de que la velocidad con la que se dan las cartas es muy gran- 
de al principio y luego se hace menor. Ello se debe al hecho de 
que la función RND genera siempre un valor entre 1 y 52, por lo 
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que, a medida que se van dando las cartas, es preciso esperar 
más tiempo para encontrar los números que todavía no han sali- 
do, Este problema se resuelve con un vector M() que tiene en 
cuenta las cartas que han salido ya y que se va acortando de for- 
ma sucesiva. 

Por este motivo, en la segunda versión*del programa, el bu- 
cle FOR de la línea 220 tiene el paso (STEP) negativo. La función 
RND, para cualquier paso, se utiliza para extraer un número den- 
tro de un intervalo cada vez más pequeño: entre 1 y 52, entre l y 
51,50, 49, y así sucesivamente. El vector M() se carga inicialmente 
con las 52 cartas en las líneas 180, 190 y 200, y luego, a medida 
que salen las cartas, se llevan a MO) los valores altos que van a 
sustituir a los que acaban de salir (línea 300). 


1,00 REM OOOO ROO OOOO OOOO 
110 REM xk BARAJANDO CARTAS k 
120 REM *k LAS CARTAS SE INDICAN *x 
1350 REM *k CON LOS NUMEROS 1 A 52 * 
140 REM EKEXRREA AAA RAE RA RAR 
150 REM 

160 DIM Mm(32) 

170 REM 

180 FOR L=1 TO 52 

1790 M(L3=L 

200 NEXT L 

210 REM 

220 FOR J=52 TO 1 STEP -1 

230 REM 

240 REM Random genera un valor 

250 REM solamente entre las cartas que 
260 REM todavia no han aparecido 
270 REM 

280 K=INT(JARND(1)+1) 

290 PRINT M(K)1REM IMPRIME LA CARTA 
300 M(k)=M(J) 

310 NEXT y 
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DATOS Y FICHEROS 


¿Qué son los ficheros? 


amos a hablar en este capítulo de uno de los 
temas más atractivos y complejos de la pro- 
gramación. Los ficheros son archivos de gran 
des cantidades de datos que, a veces, pueden 
contener incluso millones de informaciones. 
Tanto por sus grandes dimensiones intrínsecas 
como para poderlos conservar durante largos 
períodos de tiempo, los ficheros se almacenan 

Nm) casi siempre en las memorias exteriores del or- 
denador: cinta magnética, disco rígido, casete o disco flexible. Es- 
tos dos últimos soportes son las memorias que se suelen utilizar 
en los ordenadores personales, tanto por su muy reducido coste 
como por la sencillez de su uso. 

Como ejemplo más inmediato podemos citar el hecho de que 
también los programas son tipos particulares de ficheros. En efec- 
to, para conservarlos, cuando apagámos el ordenador, tenemos 
que "salvaguardarlos” en una memoria exterior. Lo mismo puede 
decirse de los archivos de datos, con la salvedad de que su con- 
trol, escritura y lectura se realiza con instrucciones más complejas. 

Lamentablemente, la gestión de los ficheros es una de las ma- 
terlas que sufre más las diferencias entre las versiones del BASIC, 
aunque actualmente hay una cierta tendencia a uniformar las ins- 
trucciones que los controlan, gracias a la aceptación obtenida por 
importantes sistemas operativos, tales como MS-DOS o CP/M, o 
por el BASIC de Microsoft. Pero las diferencias siguen siendo bas- 
tante grandes, 

Otro motivo de disparidad en el empleo de los ficheros, como 
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veremos mejor más adelante, se deduce del hecho de que no to- 
dos los ordenadores personales o caseros emplean, por motivos 
de coste, los discos flexibles, que son las memorias exteriores más 
cómodas y más 'naturales” para la utilización de los ficheros, 

No obstante estas notables diversidades prácticas, es posible 
hablar de ficheros en general y escribir programas que, con po- 
cas modificaciones, son fácilmente adaptables a muchos ordena- 
dores. Como siempre en casos similares a éste, si se comprenden 
los conceptos teóricos básicos, no resulta difícil “descender” a las 
situaciones concretas particulares que 3e encuentran programan- 
do cualquier ordenador personal, 

Antes de hablar de la programación de los ficheros, veamos 
unas cuantas ideas sobre las cintas de casete y los discos flexi- 
bles, así como sobre los criterios de organización de los datos y 
las estructuras de los ficheros. 


Cintas de casete y discos flexibles 


Dijimos anteriormente que, entre los periféricos de un orde- 
nador, los que resuelven mejor el problema de conservar los da- 
tos durante un largo período de tiempo son los que utilizan la gra- 
bación magnética. Todos nosotros sabemos cuán fiel y duradera 
puede ser la grabación de un concierto. El mismo principio es vá- 
lido también para los ordenadores, con la única diferencia de que 
los datos (las señales) no se graban de modo analógico, sino di- 
gital, como es característica de la naturaleza del ordenador. 

La grabación analógica es la más inmediata y fácil de intuir: 
un micrófono genera una señal eléctrica proporcional (analógica) 


Y 
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j Figura 1.—Los valores 1 y 0 dé los bits se almacenan como señales 
sinusoidales de frecuencia diferente. , 
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Figura 2.—Técnicas utilizadas en el almacenamiento magnético di- 
gital, 


al sonido y, a su vez, la cabeza de la grabadora genera un campo 
magnético proporcional a la señal eléctrica. Cuando más alta Sea 
la fidelidad con la que el micrófono convierte el sonido y cuanto 
más preciso sea el campo magnético generado por la cabeza, tan- 
to más alta será la calidad de la grabación. 

Por el contrario, los ordenadores trabajan con señales digita- 
les (largas secuencias de unos y ceros), por lo que se ha tenido 
que transformar la tecnología magnética analógica en una tecno- 
logía digital. En las cintas, en las casetes o en los discos flexibles, 
los datos del ordenador son grabados como señales que repre- 
sentan los valores 1 o O de los bits (Fig. 1). El problema de la fi- 
delidad, tal como se considera en el campo analógico, es prác- 
ticamente inexistente en los ordenadores, puesto que para que 
una grabación sea perfecta basta con que ningún bit 1 ó O se 
pierda. 

Algunas veces, para obtener estos resultados se recurre a téc- 
nicas complejas de grabación magnética, algunas de las cuales es- 
tán representadas en la Figura 2. 

La grabación magnética digital puede efectuarse en dos cla- 
ses de soportes: cintas y discos. A grandes rasgos, las cintas para * 
ordenador son muy similares a las musicales. Tanto es así, que las 
casetes, que son las únicas cintas utilizadas por los ordenadores 
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personales, son muchas veces las mismas en ambos casos. Á me- 
nudo, por economía, se utilizan con los ordenadores personales in- 
cluso los magnetófonos a casetes portátiles ordinarios. 

La grabación magnética digital puede también realizarse, y 
con resultados mucho mejores, en soportes en forma de discos. 
En este caso la organización de los datos es mucho más comple- 
ja, aunque, en compensación, se tiene un mayor rendimiento en 
su manejo, 


Grabación de datos en disco a 


Con independencia del tipo de disco (se trate de un grueso 
disco rígido o de un pequeño disco flexible), la organización físi- 


Pistas 


Sectores 


Disco 1 


MY Figura 3.—Subdivisión de la cara de un disco en pistas y sectores. 
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ca de los datos es prácticamente la misma siempre. Un disco está 


la aa vwirl ae fyiy 1 
ij Cl adedes Vial | / 19 CUCULALE 


oncéntricas formadas, a su vez, por sel angulares Los datos 
son grabados en bloques de longitud constante e igual a la de un 
sector. En la Figura 3 se ilustra la subdivisión de la superficie del 
disco en pistas y sectores, y en la Figura 4 se observa la corres- 
pondencia física entre un disco y su organización. 
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El contenido de un sector es el bloque mínimo de datos que 
puede leerse o escribirse en el disco. Dicho de otro modo, no es 
posible tener acceso a un byte individual como se hace con la me- 
moria central, sino que es preciso leer o escribir un sector com- 
pleto que, evidentemente, está constituido por muchos bytes, 

Para leer un determinado sector, se desplaza la cabeza de lec- 
tura de la unidad mecánica en la que está introducida el disco has- 
ta el punto correspondiente a la pista deseada y luego se espera 
a que el sector que se busca pase por debajo de la propia cabe- 
za, momento en el cual se lee su conténido, Lo mismo se haría 
para grabarlo. 

Veamos la terminología utilizada, válida para toda clase de 
discos: 


0 cara (“side”) es. un lado o superficie del disco susceptible de 
grabación. Un disco puede utilizar una o dos de sus caras; 

0 pista (“track”) es una circunferencia imaginaria en la cual se 
graban los datos, En una cara del disco hay muchas pistas con- 
céntricas (recordemos que la grabación en los discos musica- 
les se realiza, en cambio, a lo largo de una espiral); 

O secior es la parte de una pista obtenida subdividiendo la cir- 
cunferencia en un determinado número de sectores angulares. 
Un sector contiene el bloque mínimo de datos manejables du- 
rante una operación de lectura o escritura. 


La capacidad total de almacenamiento de una unidad de dis- 
co depende principalmente de: 


0 tamaño del disco; 

6 número de caras utilizadas. Para cada cara se debe tener una 
cabeza, y, por consiguiente, aumentará el coste de la unidad 
de disco; 

número de pistas por cara; 

densidad de grabación de los bits a lo largo de la pista; es de- 
cir, cuántos bits se consigue grabar en un centímetro de lon- 
gitud; 


Tipos de discos 


Aun cuando muchas unidades de disco tengan un aspecto í- 
sico diferente, todas ellas funcionan del mismo modo desde el 
punto de vista conceptual. No obstante, no debemos olvidarnos 
de hacer una puntualización que para algunos podría parecer ba- 
nal: el término "disco" se utiliza para indicar tanto el soporte mag- 
nálico en el que se graban los dátos, como lá unidad periférica 
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jue efectúa las grabaciones o las lecturas de los datos (la deno- 
mada unidad de disco o drive en inglés). En cualquier caso, si 
no se empleara la distinción disco/unidad de disco, el significado 
queda claro por el contexto en el que se emplea la denominación, 

Un disco, en la práctica, es un conjunto de sectores a los que 
ye puede tener acceso de modo independiente y en un tiempo 
relativamente corto, Se trata, pues, de una memoria de acceso alea- 
lorio similar, conceptualmente, a una memoria RAM, pero mucho 
más lenta. 

En lo que respecta a la capacidad de memoria de un disco, 
un sector puede contener desde 128 a 1.024 bytes, mientras que 
un disco puede tener una capacidad total desde varias decenas 
o centenas de kilobytes (mil bytes) a millones de bytes, según el 
número de pistas utilizadas. Pasemos revista con rapidez a las cla- 
ses de disco más comunes: 


O Discos rígidos fijos, construidos con la tecnología Winchester. 
Se suelen utilizar con los grandes ordenadores, aunque actual- 
mente, en sus versiones más pequeñas, se están difundiendo 
también entre los ordenadores personales por lo compactos 
que resultan y su notable fiabilidad. 

O Diskpack. Son pilas de discos rígidos superpuestos y solida- 
rios entre sí. La grabación suele realizarse en todas las caras, 
con una cabeza por cada cara. La capacidad de estos soportes 
es muy grande: decenas y centenares de megabytes, Suelen . 
ser extraíbles de la unidad de disco, como lo son los discos de 
cartucho (“cartridge") constituidos por un solo disco. 

O Discos Nexibles o disquetes ("floppy disk”). A diferencia con 
los discos rígidos, tienen el soporte constituido por una lámina 
de material plástico (mylar o similar) recubierta por los,habi- 
tuales óxidos magnéticos y están permanentemente envueltos 
por una funda de plástico afelpada en su interior (ver Fig, 4). 
Siempre se pueden extraer de la unidad de disco. Lamentable- 
mente, su duración no es comparable con la de los discos rígi- 
dos, tanto por estar en contacto con la cabeza de grabación, 
que se desplaza por encima y con el transcurso del tiempo los 
desgasta, como por no estar protegidos contra el polvo am- 
biental. Como máximo, almacenan solamente un millón de 
bytes (Fig. 5), pero, en compensación, su coste es verdadera- 
mente moderado. Los primeros discos flexibles tenían un diá- 
metro de 8 pulgadas (como un disco musical de 45 revolucio- 
nes), pero inmediatamente después se produjeron los de 5 1/4 
pulgadas (denominados minifloppy), adoptados luego por los 
ordenadores personales. Recientemente han aparecido los "mi- 
crofloppy” (de diámetros variados, por ejemplo, 3,5 pulgadas), 
utilizados, entre otros, por el ordenador Macintosh de Apple. 


49 


Hay que aclarar, de todas formas, que no es del todo exacto de- 
nominarlos "floppy" porque no son flexibles, sino más bien rí- 
gidos. 


Como se observa en la Figura 5, la capacidad de almacena- 
miento de un disco, además de depender del número de caras y 
del número de pistas, es función también de la densidad de gra- 
bación de los bits en las pistas. 


Formateado y directorio 


En un disco no hay nada que indique de forma visible las pis- 
tas y los sectores donde está grabada la información. Su superfi- 
cie está recubierta por igual de óxidos magnéticos con su color 
pardo característico, ¿Cómo es posible, entonces, escribir los da- 
tos en las posiciones correctas? 

En lo que respecta a la subdivisión en pistas no hay grandes 
problemas, puesto que la mecánica de precisión de la unidad de 
disco está en condiciones de desplazar la cabeza hasta situarla so- 
bre la pista deseada. El número de pistas distinguibles depende 
solamente de la precisión de la mecánica; en los discos flexibles 
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Figura 5,—Capacidad de los discos flexibles empleados con algu- 
nos conocidos ordenadores personales. 
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de 5” 1/4 son posibles 35, 40 u 80 pistas, mientras que en los de 
8" hay casi siempre 77 pistas. Los discos rígidos pueden tener, en 
cambio, centenares de pistas gracias a un dispositivo que “detec- 
ta” la intensidad del campo magnético de la pista localizada a par- 
tir de la cabeza. 

Una vez que tenemos entonces la cabeza situada sobre la pis- 
ta deseada, es preciso establecer el punto de comienzo de los sec- 
tores. Esto puede conseguirse de dos maneras: señalando de for- 
ma física en el disco con orificios los sectores (la operación de- 
nominada “sectorización” por hardware) o bien con la grabación 
de señales especiales (la denominada “sectorización” por softwa- 
re). El primer método es muy utilizado con los discos rígidos 
(“hard disk”), mientras que el segundo se emplea en casi todos 
los ordenadores personales para los discos flexibles. 

Con la sectorización por software los sectores se identifican 
mediante informaciones (en la llamada “cabecera"), grabadas en 
la propia pista. Estos indicadores, que no están presentes en un 
disco nuevo (virgen) dependen del tipo de ordenador utilizado 
o, más exactamente, de su software para disco, de su sistema ope- 
rativo de disco (o DOS). 

Así, cuando se quiere emplear un nuevo disco es preciso for- 
matearlo (o inicializarlo) en primer lugar, Esta operación, ejecuta- 
ble también en discos antiguos que se quieran reutilizar como 
nuevos, además de señalizar los sectores suele grabar en el disco 
la tabla de control de los ficheros, denominada directorio. 

El directorio (o tabla índice) contiene las informaciones nece- 
sarias para identificar todos los ficheros grabados en el disco. Una 
parte de esta información es posible leerla con el comando DIR 
del BASIC (o CATALOG, según de qué ordenador se trate). La 
principal información contenida en un directorio es: 


0 nombres de los ficheros, 

6 tipos de fichero, 

0 sectores en los que se encuentran los ficheros, 
0 dimensiones de los ficheros, 

0 fecha de su creación, 

0 fecha de la última modificación, 

0 permiso de acceso a los ficheros. 


La información más importante es la relativa a la identifica- 
ción de los sectores en donde se encuentra el fichero; gracias a 
ello resulta posible tener acceso directo a los ficheros individua- 
les o a sus registros. 
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Ficheros secuenciales 


Casi todas las versiones del BASIC permiten emplear dos ti- 
pos de ficheros: secuenciales y directos, (o aleatorios). En los fi- 
cheros se 


>cuenciales, que son los más sencillos, los datos están gra 
bados uno tras otro, como si el dispositivo de memoria de masa 
fuera siempre una cinta magnética (Fig. 6). La información conte- 
nida en el fichero puede, a su vez, subdividirse en registros y cam 
pos, pero, en cualquier caso, se grabarán o volverán a leerse siem- 
pre en orden a partir del comienzo delfichero, Funcionan como 
si se tratara de una casa de vecinos: una vez entramos en el por- 
tal (fichero), si queremos llegar al tercer piso (registro) debemos 
pasar antes por el primero y el segundo (Fig. 7). 

Con frecuencia, un fichero secuencial se crea “imprimiendo” 
los datos en el propio fichero con la instrucción PRINTH equiva- 
lente a la instrucción PRINT normal, que visualiza, en cambio, los 
datos en la pantalla. Un fichero secuencial se asemeja, a todos los 
efectos, a una larguísima cadena de caracteres. 

Para leerlo se debe partir siempre desde el comienzo utili- 
zando, de forma secuencial, instrucciones INPUTH completamente 
similares a las instrucciones INPUT. En la práctica, los datos se 
leen desde el fichero como si se leyeran a partir del teclado. 

Un dato puede ser también un registro completo, constituido 
por varios campos. En tal caso, es preciso para cada registro es- 
cribir (o leer) uno tras otro, en su orden, todos los campos que lo 
componen, 


Dirección de lectura o escritura 


Figura 6. En un fichero secuencial, para tener acceso a un regi3tro 
concreto ye debe pasar a través de todos los precedentes, 


4.2 piso Dato 4 


3." piso Dato 3 
2.* piso Dato 2 
15 piso Dato 1 


MY fove 7.—Al igual que cuando en una casa queremos llegar al ter- 
e cer piso tenemos que pasar por el 1.2 y el 2.2 en un archivo secuen- 
cial para alcanzar un dato debemos antes recorrer todos los anteriores. 


Los ficheros secuenciales sirven para lodas las aplicaciones 
en las que no es fundamental tener acceso directo a los datos si- 
tuados en puntos intermedios y se puede recorrer el fichero des- 
de el comienzo al final. Un caso particular de fichero secugncial, 
al que ya hicimos alusión, es el de los programas. Cuando se da 
la orden SAVE, el programa se almacena lo mismo que un fichero 
secuencial, al menos desde el punto de vista conceptual, aunque 
el BASIC utiliza órdenes especiales para realizar esta operación 


(comandos SAVE y LOAD), 


Ficheros directos 


El segundo tipo de fichero es el de los ficheros directoso alea- 
torios. Estos ficheros tienen la gran ventaja de que permiten el ac 
ceso directo atodos sus datos del mismo modo y con el mismo 
retraso, Por este motívo, en inglés sees denomina “random ” (alea- 
torios), precisamente por su posibilidad de alcanzar inmediata- 
mente un punto cualquiera del fichero elegido al'azar, sin' ningu- 
na limitación. Es como cuando (Fig. 8) nos acercamos a nuestra có- 


53 


Figura 8.—La forma de manejar un registro directo es parecida a la 
que usamos cuando buscamos algo en nuestra cómoda: podemos 
abrir el cajón que mejor nos parezca sin seguir ningún orden. 


moda, podemos abrir con la misma facilidad cualquiera de sus ca- 
jones (si ninguno está atascado, claro). 

Con respecto alos ficheros secuenciales, los directos son más 
prácticos y eficaces, pero tienen también una estructura más com- 


q mao | 


Campo 


Cao 


a 
aa | on | 
nacimiento 
Ni ¡S 


e AS Ree 


Subcampo Subcampo Año 


Figura 9.—Los ficheros directos, o aleatorios, están constituidos por 
registros que llenen todos ellos la misma longitud. 
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pleja y rígida; en los ficheros directos la información debe estar 
forzosamente organizada en bloques de longitud fija (los denomi- 
nados registros). Dicho de otro modo, los ficheros directos están 
constituidos por una serie de registros, cada uno de los cuales 
puede contener una cantidad bien definida de información, que , 
“d establece de una vez por todas cuando se crea el fichero (Fig. 
PR 

Por ejemplo, supongamos que los registros de un fichero di- 
recto tengan que contener solamente nombres y apellidos. Pode- 
mos tener personas con el nombre muy corto (“Juan Paz”) y otros 
con el nombre muy largo (“José Antonio Campuzano”). El primero 
está constituido por ocho caracteres (incluyendo el espacio), 
mientras que el segundo tiene veintidós. Si queremos que el fi- 
chero contenga estos nombres, todos los registros deberán tener 
una longitud fija (mínima) de veintidós caracteres (o veintitrés 
para algunos ordenadores que añaden un carácter separador en- 
tre los registros). Esto quiere decir que para el primer nombre des- 
perdiciamos 14 bytes, lo cual es un despilfarro considerable. No 
hay ninguna otra alternativa: en los ficheros directos: o cortamos 
los nombres más largos o desperdiciamos espacio con los más 
cortos. 


Estructura y acceso 


Hasta ahora hemos utilizado los términos secuencial y directo 
para referimos tanto a la estructura del fichero como al método 
de acceso a los datos. En realidad, se trata de dos conceptos bien 
distintos y habría sido más exacto hablar de: ; 


4 
0 estructura del fichero (secuencial o directa). Forma en que es- 
tán organizados, es decir, escritos, los datos; 
0 método de acceso (secuencial o directo). Forma de acceder a 
los datos del fichero, tanto en la fase de escritura como en la 
de lectura. 


Es fácil intuir, y también recordar cuando se escriben los pro- 
gramas, que en un fichero con estructura secuencial sólo se pue- 
de tener un acceso secuencial, mientras que en un fichero con es- 
tructura directa se puede acceder de cualquier modo. 

Por consiguiente, la elección de una estructura o de otra de- 
pende no solamente del tipo de datos que se tengan, sino tam- 
bién de la clase de empleo que les vayamos a dar y del tipo de 
ordenador que utilizamos. Por ejemplo, los más pequeños orde- ' 
nadores caseros no suelen permitir controlar ficheros directos y, 
a veces, ni siquiera secuenciales, 
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En este punto, volvemos a hablar de ordenador personal. Es- 
tos ordenadores suelen trabajar sólo con magnetófonos a casete 
(como las musicales) y, por consiguiente, no permiten controles 
sofisticados (¡es un decir!) de los ficheros, Para hablar de ficheros, 
como se habrá percatado ya, es preciso, en la práctica, referirnos 
a los ordenadores que utilizan discos flexibles. 

Antes de proseguir para ver finalmente las instrucciones BA- 
SIC relativas a los ficheros, hagamos una puntualización técnica 
con respecto al empleo de los magnetófonos a casete ordinarios 
(musicales, para entendernos). Para controlar los ficheros secuen- 
ciales, no todos estos magnetófonos proporcinan resultados satis- 
factorios. De hecho, un fichero secuencial es una sucesión de re- 
gistros independientes entre sí, que deben escribirse y leerse de 
manera secuencial, pero no necesariamente todos con continui- 
dad temporal: entre la escritura, o lectura, de un registro y el su- 
cesivo puede existir una larga pausa; basta considerar el tiempo 
necesario para preparar un nuevo registro antes de escribirlo, 

Por este motivo, el motor de la grabadora debe poder ser con- 
trolable por el ordenador, que lo hará avanzar o parar cuando sea 
necesario, Los ficheros secuenciales en casete se pueden utilizar, 
pues, solamente con los ordenadores que tengan el control remo- 
to de la grabadora. Con mayor razón, los ficheros directos nunca 
se pueden escribir en ningún tipo de cinta magnética, ni siquiera 
en las empleadas por los grandes ordenadores, porque estos fi- 
cheros requieren que se pueda tener acceso directo a cada uno 
de sus registros. 
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GESTION DE FICHEROS EN BASIC 


Apertura y cierre de ficheros 


hora que tenemos más claras las ideas sobre la 
estructura de los ficheros y los soportes sobre 
los cuales crearlos (cintas o discos) volvemos al 
lenguaje BASIC. Vamos a describir la forma en 
que hemos de proceder para controlar un fi- 
chero, 

Supongamos que hay muchos datos que alma- 
cenar: por ejemplo, una lista de direcciones. En- 
tonces, para utilizar un fichero es preciso, en pri- 
mer lunar abrirlo; es decir, avisar al ordenador de que deseamos 
una conexión "lógica" con un magnetófono de casete o un disco. 

Una analogía válida de la apertura de un fichero es la de te- 
lefonear: cuando marcamos un número y la persona llamada des- 
cuelga el teléfono, se establece una conexión y queda ' 'abierta” la 
comunicación, 

Solamente después de que un fichero se ha abierto es posi- 
ble realizar en el mismo las operaciones de lectura o escritura de 
los datos. En ese preciso momento se hace accesible ("transpa- 
rente”) para el usuario y, en un cierto sentido, puede compararse 
con una gran expansión de la memoria central. Al acabar las ope- 
raciones de lectura y de escritura el fichero deberá cerrarse para 
cortar la conexión lógica que se había establecido con la apertura 
inicial. 

Digamos inmediatamente algo muy importante: un fichero, 
una vez abierto, lleno de datos y cerrado se conservará aún cuan- 
do termine el programa que lo ha escrito, Los ficheros tienen "vida 
propia” gracias al hecho de que están depositados en memorias 
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magnéticas y, por consiguiente, no pierden la información al apa- 
gar el ordenador. Una cinta de casete (o un disco flexible) con- 
servan datos y programas durante muchos años, lo mismo que su- 
cede en el caso de las grabaciones musicales. Es muy raro que 
un soporte magnético pierda la información si se tomaron algunas 
precauciones mínimas, como no mojarlo, calentarlo o ensuciarlo. 
Un fichero, además de ser un gran medio de almacenamiento 
de nuestros datos, puede hacer también de puente de conexión 
entre dos programas. Por ejemplo, si dos programas son demasia- 
do amplios para residir ambos en la mémoria central (como un 
programa único) pueden cargarse, uno a uno, en el ordenador e 
intercambiar sus datos a través de un fichero temporal (Fig. 1), 


Figura 1.—Un fichero temporal puede usarse para transferir los da- 
tos desde un programa a otro, 


Cuando se trabaja con discos flexibles se pueden utilizar 
(abrir) simultáneamente varios ficheros y desarrollar varias ope- 
raciones de lectura y de escritura de datos. Es evidente que cada 
fichero abierto deberá tener un nombre diferente (un número de 
teléfono diferente en la analogía de la llamada telefónica). El nú- 
mero máximo de ficheros simultáneamente abiertos no es el mis- 
mo para todos los ordenadores. 
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OPEN 


La primera instrucción del BASIC que encontramos para con- 
trolar los ficheros es OPEN. Esta instrucción OPEN es la que avisa 
al ordenador de que queremos trabajar con un fichero, 

Las reglas que rigen su empleo varían mucho según la ver- 
sión del BASIC, pero todas ellas tienen en común que deben es- 
tablecer las características del fichero y en qué periférico (casete 
o disco) debe efectuarse la grabación o lectura de los datos, Los 
parámetros de las instrucciones OPEN son: 


0 tipo de fichero (secuencial o directo); 

0 tipo de operación (lectura o escritura de los datos); 

0 un código numérico denominado canal o fichero logico, que 
se asociará a dicho fichero para las sucesivas instrucciones de 
lectura o escritura de los datos (PRINT+*, INPU'T+, etc.). Si se uti- 
lizan varios ficheros simultáneamente este código sirve tam- 
bién para distinguirlos; 

6 nombre del fichero, y 

0 periférico con el que se debe realizar la cenexión. 


Es bastante habitual que en los ordenadores que admiten fi- 
cheros secuenciales y directos el formato de las instrucciones 
OPEN no coincida. 

Veamos algunos ejemplos, con la indicación de a qué orde- 
nador se refieren. 


Commodore 64; 
OPEN <n?2 canal>, 1, <modo>, “<nombre>”, 


100 DPEN 5,1,0, "AGENDA" 


Quiere decir que el fichero con el nombre AGENDA se es- 
cribe (lo que se indica por O = Output, archivo de salida) desde 
la cinta del casete, única opción posible (lo que se indica por 1) 
a través del canal lógico 5. 


100 OPEN 4,1,1, "TELEFONO" 
En este caso, el fichero TELEFONOS se lee (1=input, de en- 
trada) en la cinta de casete (1) a través del canal lógico 4. 
Spectrum: 


Este ordenador utiliza la instrucción OPEN solamente con las 
unidades Microdrive (pequeñas casetes que trabajan en bloques 
como los discos). 
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En las unidades de casete no es posible abrir ficheros, aun- 
que se pueden grabar en ellas bloques completos de datos bajo 
la forma de vectores o matrices con la instrucción SAVE DATA. 
Por ejemplo: 


100 SAVE "DIRECCIONES" DATA As) 


Hace que la matriz de cadena A$ () se almacena en cinta de 
casete con el nombre de DIRECCIONES. Ha de tener en cuenta 
que la palabra DATA significa “datos” y ho debe confundirse con 
la instrucción DATA READ, 

Para la lectura de la matriz completa A$ se emplea la instruc- 
ción LOAD DATA: 


100 LOAD "DIRECCIONES" DATA 441) 


Apple ll: 


Los ordenadores de Apple hacen uso prevalente de discos 
flexibles. La instrucción de apertura de un fichero con el DOS 3,3 
(el software operativo para discos del Apple II) debe darse a tra- 
vés de una instrucción PRINT, haciendo preceder el comando 
Cia por un carácter Control D (CTRL-D). Para un fichero secuen- 
cial sería: 


100 DS=CHR$(4) ¿REM <CTRL D> 
110 PRINT D$¿ "OPEN DIRECCIONES” 


Con lo anterior se abrirá en el disco el fichero secuencial DI- 
RECCIONES. El DOS 3.3. no utiliza números de canal, Disculpe la 
aparente dificultad de estas instrucciones, pero a menudo ¡hay que 
tomar las cosas tal como son! Para no adentrarnos demasiado en 
el funcionamiento de las máquinas individuales, no hemos dado 
la explicación detallada de todos los parámetros de las instruc- 
ciones OPEN: ¡de vez en cuando es necesario consultar los ma- 
nuales de los ordenadores! 

La apertura de los ficheros directos se consigue en el Apple 
añadiendo el parámetro L, que indica la longitud del registro: 


1060 D$=CHR$(4): REM <CTRL D> 
110 PRINT Ds "OPEN DIRECTO, LSO" 


Esto quiere decir que el fichero DIRECTO, de estructura alea- 
lorta, tiene los registros con una longitud de 50 caracteres cada 
uno 
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IBM PC: 


Este ordenador trabaja con el BASIC Microsoft, que suele 
utilizarse con el sistema operativo MS-DOS. Las instrucciones re- 
lativas a los ficheros son muy sencillas y elegantes. Para una se- 
cuencial: 


OPEN "<modo>”, + <canal>, “<nombre>” 


100 DFEN "0",45, "Es ESTUDIANTES" 


El fichero secuencial ESTUDIANTES se abre con el número de 
canal 5 en la unidad B. Las operaciones son de escritura (la “O” 
indica salida del ordenador). 


100 OPEN "I1",$5, "BESTUDIANTES" 
Como la anterior, pero las operaciones son de lectura (“I” por 


imput, igual entrada). 
Para los directos: 


OPEN 'R”, 4 <canal>, " <nombre>”, <longitud> 


100 OPEN "R",44, "A¡ VUELOS. 1”,230 
El fichero directo VUELOS.1 se abre con el número de ca- 
nal 4. El parámetro "R” indica que el fichero es directo, Los regis- 


tros tienen una longitud de 230 caracteres. Las operaciones pue- 
den ser de lectura o de escritura. 


Equipos MSX 
Para los secuenciales (desde casete) usan: 
OPEN "<nombre>" FOR <modo> AS <canal> 
y para los directos: 


OPEN “<nombres>” [FOR <modo>] AS [4] <canal> 
[LEN=<longitud>] ; 


CLOSE 


Al final de las operaciones de lectura o escritura de cualquier 
tipo de fichero, es imprescindible cerrar el canal o, dicho de otro 
modo, desconectar lógicamente el magnetófono a casete o el dis- 
co flexible (equivale a colgar el teléfono). 
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La instrucción del BASIC es, en este caso, muy sencilla: CLO- 
SE seguida por la indicación del número de canal incluido en la 
intrucción OPEN correspondiente (atención a esta corresponden- 
cia). Por ejemplo: 


500 CLOSE $41 
Sirve para cerrar el canal 1. 


Solamente el ordenador Apple con DOS 3,3, presenta una com- 
plicación, debida a la obligación de dar'el carácter Control D con 
PRINT: 


500 FRINT CHR$ (4) 5 "CLOSE" 


Cuando un fichero está abierto como de lectura, la falta de cie- 
rre, CLOSE, no produce ningún daño efectivo. Por el contrario, en 
el caso de escritura, la falta de cierre puede dar lugar a la pérdida 
del último bloque de datos, que no se graba en el fichero. 


El BASIC y los ficheros secuenciales 


Después de haber visto las instrucciones de apertura y de 
cierre, tanto para los ficheros secuenciales como para los direc- 
tos, pasamos a las instrucciones necesarias para escribir y leer los 
registros individuales; primero veremos las correspondientes a los 
ficheros secuenciales y después las relativas a los ficheros direc- 
tos, 


PRINTH 


Escribir los datos en un fichero secuencial del BASIC es muy 
sencillo, Se procede, desde el punto de vista conceptual, como si 
los datos se visualizaran en la pantalla: cada línea equivale a un 
registro. 

La instrucción PRINTH se comporta como PRINT, pero en lu- 
gar de enviar los datos a la pantalla los envía al fichero (atención 
al signo + denominado “cancela”, que distingue a las dos instruc- 
ciones). , 

Para obtener la separación de los registros en campos, reco- 
nocibles luego en la fase de lectura por una instrucción INPUTH, 
es preciso escribir entre los valores de cada campo, de forma ex- 
presa, comas, puntos y coma u otros separadores válidos según 
el ordenador de que se trate. Veamos un ejemplo en el que se 
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"imprimen" en el fichero, abierto antes con el número de canal nú- 
mero 6 (+8), dos campos C1$ y C2$ 


200 FRINT H0.,C19p", "502% 

La grabación de la coma “” (separador de campo) es funda- 
mental para permitir al ordenador, cuando las lea después, sepa- 
rar las dos cadenas C1$ y C2$ Sin esta coma, el ordenador con- 
sideraría que se trata de una cadena única, unión de Cl$ y C2$ 
Cuando se graban cadenas es preciso prestar atención a su lon- 
gitud máxima, que varía de un ordenador a otro. Estas limitacio- 
nes dependen, en gran medida, del tipo de instrucciones que se 
utilizarán luego para leer el fichero, Por ejemplo, con la instruc- 
ción INPUT de Commodore no se pueden leer más de 80 carac- . 
teres, incluido el carácter Return, situado al final de un registro 
como separador. 


Ejemplo de escritura en un fichero secuencial 


Le proponemos un ejemplo "sui generis” de fichero secuen- 
cial: la escritura de un fichero en el que están incluidos los ele- 
mentos de una matriz rectangular de números, La grabación se ini- 
ciará desde el principio, línea por línea. 

Sabemos que en BASIC las matrices son tablas (o “arrays”) 
que residen en la memoria central, como todas las variables; pero 
pueden existir dos motivos válidos para querer que los datos de 
estas tablas se incluyan en un fichero exterior, El primero, eviden- 
temente, es la conservación de las propias matrices, y el segundo 
es que las matrices muy grandes no pueden “residir” por comple- 
to en la memoria central. Por ejemplo, una matriz de 100x100 nú- 
meros enteros ocupa 20.000 bytes (10.000 números, cada uno de 
los cuales está almacenado en 2 bytes). Muchos pequeños orde- 
nadores no pueden disponer fácilmente de tanta capacidad de 
memoria para una sola matriz, por lo que se tiene que probar a 
grabarlas en periféricos externos. 

Veamos, pues, cómo escribir en un fichero secuencial una ma- 
triz, elemento por elemento y línea por línea, 

Supongamos que la matriz tenga 100 filas y 50 columnas, lo 
que indicamos en la línea 160 con las dos variables TR y TC. En 
la línea 190 abrimos el fichero (las instrucciones son las del BA- 
SIC Microsoft), en donde “O” indica que el fichero está abierto en 
escritura (“output”), el número de canal que elegimos es el núme- 
ro 1 (+1) y el nombre que damos al fichero es de MAT. SEC, 

Los dos bucles FOR NEXT permiten tomar en la entrada, des- 
de el teclado, y luego escribir en el fichero uno por uno los ele- 
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mentos de la matriz, En la línea 270 se presenta en la pantalla el 
mensaje de solicitud de un elemento, Por ejemplo, para el primer 
elemento aparecería: 


FILA 1 - COL 1: 


a lo que se debe responder con el valor numérico del primer ele- 
mento. Tenga presente que estos números son de tipo real, y no 
entero, como dijimos anteriormente, por,lo que la matriz ocupa mu- 
chos más bytes (4 bytes por cada número real en el BASIC Mi- 
crosoft). 

En la línea 290 el número E se graba en el fichero. Cada re- 
gistro del fichero contiene, pues, un único número real. 

La instrucción CLOSER] en la línea 330 cierra el fichero. Su 
existencia es fundamental, porque garantiza que el último bloque 
de datos se transfiera efectivamente a la memoria exterior. 

Tratemos de explicar mejor este punto, al que se hizo alusión 
con anterioridad. La grabación de los datos en un disco (o en una 
cinta de casete) no tiene lugar realmente cada vez que el orde- 
nador encuentra una instrucción PRINTH, sino solamente cuando 
el buffer preparado para dicho fichero está lleno de datos. No tie- 
ne por qué preocuparse, ya que estos problemas no afectan al pro- 
gramador, sino que son competencia exclusiva del sistema ope- 
rativo DOS, 

Si, por ejemplo, el buffer tiene una longitud de 256 bytes y se 
graban números de 4 bytes a los que se añade un carácter se- 
parador de registro (como Return, ASCII] 13), dando un total de 
5 bytes por regsitro (en los ficheros directos la cuestión es dife- 
rente al faltar los separadores), en el buffer cabrán 256/5=51 re- 
gistros completos. El byte que sobra es inutilizado. En este caso 
solamente después de 51 instrucciones PRINT+R1, el buffer se "tras- 
vasará” al exterior y se verá girar el disco o la cinta de casete. 
Cuando se ejecute la última instrucción PRINTH es poco probable 
que coincida con el llenado del buffer, por lo que si en este mo- 
mento apagáramos el ordenador o finalizara el programa, los últi- 
mos registros que se encuentran cargados en el buffer se perde- 
rían. CLOSE tiene precisamente el cometido de almacenar el últi- 
mo resto de fichero, es decir, trasvasar el último buffer, además 
de avisar al sistema DOS de que las operaciones en ese fichero 
están terminadas. 


, 


ARETES 
110 REM * ESCRITURA DE UNA * 
120 REM * MATRIZ DE NUMEROS Xx 
13ó REN A EN UN FICHERO SECUENCIAL * 
1190 REA RRA ROO OOOO OOOO RA 
150 REM 

160 TR=100: 1C=50: REM MATRIZ DE 100 Xx 50 
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170 REM 

180 REM 

190 OPEN "0",$1,"MAT.SEC" 

200 REM 

210 REM ESCRITURA DE LA MATRIZ 

220 REM 

230 PRINT "DAR LOS VALORES DE LOS ELEMENTOS: ” 
240 REM 

250 FOR J=1 TO TR 

260 FOR K=1.T0 TC 

270 PRINT “FILA ";3J5" - COL "¿kg" 2" 
280 INPUT E 

290 PRINT $1,E 

300 NEXT K 

310 NEXT y 

320 REM 

330 CLOSE $1 

340 REM 

550 END 


Más adelante, después de que estudiemos las instrucciones 
de lectura de los ficheros secuenciales, veremos cómo leer la 
matriz. 

A modo de inciso, recordemos que el ordenador Spectrum 
realiza la grabación de una matriz directamente con la instrucción 
SAVE DATA. 


INPUT+ y LINE INPUTR 


La lectura de los ficheros secuenciales puede realizarse de 
dos maneras: leyendo un registro completo (INPUT* y LINE IN- 
PUT+) o bien leyendo un carácter cada vez (GETH o INPUT), Ha 
de prestarse atención a esta instrucción GET*, que no debe con- 
fundirse con la instrucción GET+ del BASIC Microsoft, por ejem- 
plo, que actúa, por el contrario, sobre los ficheros directos y de la 
que hablaremos a continuación. 

En el primer caso, INPUT** se comporta como su "prima her- 
mana” INPUT. INPUT recibe los datos desde el teclado, mientras 
que INPUTHA los recibe desde el fichero. Las variables, indicadas 
en la instrucción, deben corresponder al tipo de datos grabados 
en el fichero. 


INPUTH <canal>, <variablel> [,<var2>..] 


Las comas grabadas con PRINTH separan los campos y equi- 
valen a las introducidas por el teclado para separar los datos a la 
entrada. El carácter Return que separa los registros equivale a la 
pulsación de Return en el teclado. Por ejemplo, para leer cuanto 
se escribió con la instrucción PRINTR indicada anteriormente se 
debe utilizar: 
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$00 INPUTHEZ, Ad, ES 


Con LINE INPUT+ se lee, en cambio, un registro completo, has 
la el carácter Retum. Esta instrucción se utiliza solamente con va- 
riables de cadena y cada eventual distribución lógica en campos 
debe hacerse por separado. La importancia de LINE INPUTH está 
en el hecho de que admite una línea completa con cualesquiera 
caracteres (comas y otros) y la asigna a una sola variable. Por 
ejemplo: 


600 LIME INPUTH1.Ls 


GETH e INPUTS 


Acabamos de hacer alusión al hecho de que, a menudo, es 
preferible leer un fichero secuencial que contenga datos del tipo 
de cadena, en forma de un carácter cada vez. Esto es así para evi- 
tar los inconvenientes de la instrucción INPUT+, que exige una co- 
rrespondencia rígida entre sus variables y los campos del regis- 
tro separados por las comas. Esta lectura carácter por carácter se 
obtiene por la instrucción INPUT$ o con GETA. En este caso ya no 
existen campos y registros del fichero, sino que la destribución ló- 
gica debe ser reconstruida por el programa de lectura. 

Así, en el ejemplo siguiente, en la cadean R$ "acumulamos” 
un registro leyeñdo un carácter cada vez. Al comienzo de cada 
campo, la cadena R$ se pondrá a cero (línea 150); a través de la 
instrucción INPUT$ se lee y asigna a la variable A$ un carácter 
desde el canal número 1 (+1) abierto con anterioridad. El primer 
número l, entre los parántesis de la instrucción, indica precisa- 
mente que se lee un solo carácter, en realidad, INPUT$ permitiría 
que se leyese más de uno. Inmediatamente después se efectúan 
dos comprobaciones: si el carácter leído es una coma (ASCII 44), 
el programa pasará al control del campo, y si el carácter es Re- 
turn (ASCII 13), se terminará el registro, En todos los demás casos, 
el carácter se añade a la cadena R$ (línea 190). Después del con- 
trol de campo o de registro, el programa volverá a la línea 150, 


1390 Rse=" " 

160 A$=INFUTS(1,81) 

165 REM , 

170 TF AB=CHR$(44) THEN GOTD 200 
100 1F AS=CHR$(13) THEN GOTO 300 
190 R$=k$+A$: GOTO 160 

193 REM 

200 sn... R$ Contiene un campo 


U0O su. Final de registro, K$ contiene el ultimo campo 
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Si se emplea la instrucción GETF, la línea 160 debe cambiarse 
“omo sigue: 


150 GETH1,AS 


Si el fichero contiene datos numéricos, grabados con varia- 
bles numéricas, se debe utilizar INPUTH por cuanto que GET+f e 
INPUT$ al leer un carácter cada vez, harían muy difícil la recons- 
trucción de los números expresados en forma exponencial (por 
ejemplo: 3.456 E-8). 

Se podría pensar que la lectura de un fichero con GETF (un 
carácter cada vez) es mucho más lenta en relación con la efec- 
tuada con INPUTA (un registro completo), pero, en realidad, el 
tiempo empleado es prácticamente igual. GETH ofrece, no obstan- 
te, la ventaja de que cualquier cosa que se escriba en el fichero 
puede ser leída corno si se programase en lenguaje máquina, Exi- 
ge, pues, un poco más de dominio y de atención. 


Ejemplo de lectura en un fichero secuencial 


Pasemos ahora a leer el fichero secuencial escrito anterior 
mente para "magnetizar” una matriz numérica. 

Incluso en este caso la primera instrucción operativa del pro- 
grama debe ser la de apertura del fichero, En la línea 190 hemos 
utilizado OPEN con el parámetro 'T” (INPUT = de entrada) seguido 
por el número del canal (1). 

Este número que usamos ahora no depende, en absoluto, del 
número de canal empleado en el programa de escritura, y sola- 
mente por casualidad se eligió también el 1. En cambio, el ngm- 
bre del fichero MAT.SEC debe ser exactamente el utilizado en la 
escritura, porque solamente así el sistema DOS puede buscar en 
el disco el fichero correcto que contiene la matriz deseada, 

La lectura de la matriz es muy simple y basta utilizar una ins- 
trucción INPUTA con una variable numérica (variable que puede 
ser diferente de la empleada en la escritura). Los dos bucles FOR 
NEXT anidados tienen como objetivo leer los elementos de la ma- 
triz línea por línea. En la línea 310, CLOSE cierra la comunicación 
con el fichero. En este caso, su eventual omisión no produciría da- 
ños en los datos, como hubiera sucedido, por el contrario, en el 
caso de escritura. 


Y 00 RE OA OOOO OOOO OOO OR 
110 REM k MATRIZ DE NUMEROS , 
120 REM k EN FICHERD SECUENCIAL  *X 
1:30 REM xXx LECTURA , 
140 REM KKIKAKAKEXE RACE RMALALALANAKA 
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1590 REM 

160 TR=100: TC=S5034REM MATRIZ DE 100 X 50 
170 REM 

1980 REM 

190 OPEN *I",$1,"MAT.SEC" 

200 REM 

210 REM ----— IMPRESION DE LA MATRIZ ---- 
220 REM 

230 FOR L=1 TO TR 

240 FOR M=1 RO TC 

250 INFUT 41,0 

260 PRINT "FILA “¿L3" -COL "¿Mp 

270 PRINT * 3 *3C e 

280 NEXT M 

290 NEXT L 

300 REM 

310 CLOSE +1 

320 REM 

330 END 


Si en lugar de una matriz numérica se hubiera tratado de una 
matriz de cadenas, no habría diferencias importantes. En lugar de 
la variable C habríamos empleado una variable de cadena tal 
como E$ Las únicas complicaciones se habrían dado si en lugar 
de grabar un solo número por registro hubiésemos querido gra- 
bar más. En este caso hubiéramos tenido que forzar la grabación 
de "comas separadoras”, a las que antes hicimos alusión, de este 
modo: 


290 PRINT $41,087 ","¿Bp","30 


en el programa de escritura. 
Ello hubiera permitido, en la lectura, emplear variables sepa. 
radas entre sí: 


250 INFUT 4*1,D,E,F 


Las comas utilizadas en escritura se comportan exactamente 
jgual que las comas que se han de teclear para separar la entrada 
de varios datos cuando se utiliza la instrucción INPUT, 


El BASIC y los ficheros directos 


Hablemos ahora de ficheros directos, que solamente pueden 
qrabarse en discos, como explicamos anteriormente. Los ficheros 
directos, además de tener la gran ventaja de permitir acceder di- 
rectamente a sus datos, permiten también reescribir o leer, sin mo- 
dificar el OPEN, cada registsro de forma individual. 

Con los ficheros secuenciales (repetir estos conceptos nunca 
viene mal) se pueden hacer, en cambio, solamente operaciones 
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de lectura o de escritura, de forma separada. Por estos motivos, 
pero también por su más compacta grabación en los discos, los 
ficheros directos son casi siempre preferibles. 

Hagamos primero una puntualización. Hemos utilizado el tér- 
mino ficheros directos o de acceso directo, pero hay quien dis- 
tingue más precisamente entre ficheros directos y ficheros relati- 
vos. La diferencia es solamente de tipo práctico y no de natura- 
leza conceptual, por lo que, después de haberla aclarado, segui- 
remos utilizando la primera denominación. Un fichero se denomi- 
na directo por cuanto que al permitir apuntar directamente a cada 
uno de sus registros está en contraposición con los ficheros se- 
cuenciales, Los americanos utilizan el término "random" (aleato- 
rio) pretendiendo indicar que el tiempo de acceso a cualquiera 
de sus elementos es siempre igual por término medio. 

La distinción entre ficheros directos y ficheros relativos de- 
pende, por el contrario, del criterio con el que se indentifican los 
registros individuales. Los ficheros directos propiamente dichos 
son aquellos en los que para apuntar a un registro se dan, en la 
práctica, las indicaciones de pista y sector del disco, En cambio, 
en los ficheros relativos, a cada registro se le asocia un número 
creciente relativo (primero, segundo, tercero, etc.) gracias al cual 
se puede apuntar directamente al registro. En este segundo caso 
corresponde al sistema operativo disco del ordenador (el DOS) 
convertir la indicación relativa del registro en los valores, a bajo 
nivel, de pista y sector. 

Hablemos entonces de ficheros directos. Considerando que 
estos ficheros se suelen emplear solamente en los ordenadores 
personales mas grandes, que a menudo trabajan con el BASIC Mi- 
crosoft, vamos a ver inmediatamente las instrucciones de este len- 
guaje, Entre los ordenadores caseros son pocos los que permiten 
los ficheros directos (entre las excepciones, el más significativo 
es el Commodore 64). 

El punto crucial en la gestión de los ficheros directos es la pre- 
paración de la estructura del registro. Dijimos anteriormente que, 
en los ficheros directos, los registros tienen todos la misma longi- 
tud. Pero comprobar solamente que los datos tienen esta longitud 
no nos basta. Es preciso imaginar un registro como una caja en la 
que situamos distintos divisores: en cada compartimento (campo) 
se ponen dos datos efectivos. Una vez que la caja esté preparada, 
es decir, cuando el programa haya llenado de datos los compar- 
timentos, se enviará al fichero. El nombre correcto de esta caja es 
buffer, término que encontramos ya con anterioridad. 

Un buffer es una zona de memoria temporal que se carga y 
se descarga de forma alternativa. Durante la fase de escritura del * 
fichero el buffer se llena paso a paso, campo por campo, y luego 
todo el conjunto se transmite con rapidez al fichero (Figura 2). 
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Programa 


Escritura 


Buffer Buffer anterior 


Lectura 


Buffer 


Figura 2—Funcionamiento del buffer en la escritura y lectura de fi- 
cheros directos. 


Por el contrario, durante la lectura, después de haber apunta- 
do a un registro, éste se copia en el buffer, poniendo a disposi- 
ción del programa sus datos, tal y como se ve en la Figura 2. 

La instrucción del BASIC Microsoft que prepara y controla el 
buffer es la instrucción FIELD, y veremos a continuación cómo fun- 
ciona. 


FIELD, LSET, RSET y PUT 


La instrucción FIELD determina una zona de memoria para el 
buífer, indispensable en la gestión de un ficnero. Con FIELD se de- 
fine exactamente la estructura del registro, indicando cuántos ca- 
racteres tiene de longitud y cuáles son sus campos. FIELD, que 
debe utilizarse tanto en escritura como en lectura, especifica cuán 
tos y cuáles son los campos del registro y atribuye a cada uno un 
nombre de variable. Estos nombres de variable no representan va- 
riables ordinarias de las que estamos acostumbrados a emplear 
en BASIC, sino variables muy especiales a las que se le atribuye 
un valor mediante las instrucciones LSET o RSET; en la práctica 
son, más que variables, punteros dirigidos a los campos del regis- 
tro, 


FIELD 4<canal>, <longitud1> AS <variablel> [,<long.2> AS 
<var.2>...] 


LSET y RSET son instrucciones de carga del buffer (utilizadas 
nlamente en la escritura del fichero). La primera, LSET (“left set”) 
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llena los campos del buffer a partir de la izquierda, como estamos 
acostumbrados para formar en columnas las cadenas, y la segun- 
da, RSET (“right set”), realiza dicha operación desde la derecha, 
como se suele hacer con los números, 


LSET <variable campo> = <variable> 
RSET <variable campo> = <variable> 


Quizá en este punto tenga las ideas más confusas que nunca, 
En realidad, el empleo de la instrucción FIELD y de las instruccio- 
nes LSET y RSET es muy sencillo, Un ejemplo servirá para acla- 
rarlo definitivamente (RSET se utiliza en más raras ocasiones, pero 
del mismo modo). 

Supongamos que quiere escribir un fichero directo de nom- 
bres propios, cuyos registros están divididos en dos campos: nom- 
bre y apellido. Ante todo, debemos establecer cuál será la longi- 
tud de cada registro; si prevemos 30 caracteres para los nombres 
y 20 para los apellidos, los registros tendrán una longitud de 50 
caracteres. Repetimos que esta delimitación de la longitud de los 
registros es característica de los ficheros directos, mientras que 
los ficheros secuenciales son libres de tener registros largos o cor- 
tos, indistintamente. 

Veamos las dos primeras instrucciones: 


100 OPEN "R", +8, "NOMBRES PROFIOS", 50 
110 FIELD 48,30 AS N4,20 AS Có% 


OPEN abre un fichero relativo o directo (“R”) con el número 
de canal 8, elegido libremente entre 1 y 255, El nombre del fiche- 
ro es NOMBRES PROPIOS y 50 es la longitud total establecida para 
todos los registros. La instrucción OPEN para los ficheros secuen- 
ciales habría exigido en el lugar de R, una O para le escritura y 
una 1 para la lectura del fichero (la lectura y la escritura de los fi- 
cheros directos pueden ser simultáneas). 

La instrucción FIELD, de la línea 110, indica que se refiere al 
fichero asociado al canal 8. Se podrían abrir simultáneamente va- 
rios ficheros, con tal de que tengan números de canal y nombres 
diferentes, Según definimos en FIELD, el registro está dividido en 
dos campos, llamados N$ y A$ el primero con una longitud de 
30 caracteres y el segundo con 20 caracteres (Fig. 3), 

En este punto, a título de ejemplo, supongamos que se piden 
, a la entrada 10 nombres propios y que se quieren escribir en el 
fichero, Tendremos que definir instrucciones de entrada desde el 
teclado, comprobar que cada nombre no tenga más de 30 carac- 
teres de longitud y cada apellido no más de 20 caracteres, y lue- 
go, a través de las instrucciones LSET, “asignaré” a cada campo 
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y Figura 3.—Estructura del registro, 


de los registros. Con la instrucción PUTH los valores de los cam- 
pos (en el buffer) se pasan al fichero, como veremos en el siguien- 
te apartado. Una vez concluidas todas las operaciones, se cerrará 
el fichero. Veamos el programa completo: 


100 OPEN "R", +8, "NOMBRES PROPIOS", ED 


105 REM 
110 FIELD 48,30 AS NEO AS As 
124 REM S 


150 FOR E=1 TO 10:3REM 10 NOMBRES PROFIOS 
140 INFUT "MOMERIE "3 Dhió 

190 1F LEN(DNS) 030 THEM GOTO 140 

1640 INPUT "APELLIDO"; DA» 

170 1 LEN(DAS)>20 THEN GB0TO 160 

180 LSET-N$=DNS$: REM CAMPO DEL NOMBRE 

190 LSET A$=DAS: REM CAMPD DEL AFELL IDO 
193 REM 

200 PUT +8, K:REM ESCRITURA DEL REGISTRO K-ESIMO 
210 NEAT K 

220 REM 

2350 CLOSE +8 


PUTHk y GETH 


Son las dos instrucciones que permiten escribir y leer un fi- 
chero directo. Ambas instrucciones, además de indicar el fichero 
al que se refieren (en el ejemplo, el asociado al canal núm. 8), tie- 
nen como único parámetro el número del registro que debe es- 
cribirse (PUTR) o leerse (GET+). Su sintaxis es: 


PUTH <canal>, <número registro> 
GETF <canal>, <número registro> 


En este caso, le recordamos que la palabra reservada GET no 
liene nada que ver con la GET que usan algunos ordenadores con 
los ficheros secuenciales, Esta GETR puede leerse así: extraer el 
registro n-ésimo del fichero abierto con el número de canal indi- 
cado y copiarlo en el buffer definido por la instrucción FIELD co- 
rrespondiente. PUTA transfiere, por el contrario, el contenido del 
buller al registro n-ésimo del fichero. 

GETFf es algo más sencilla de utilizar que PUT por cuanto 
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que no requiere las instrucciones LSET o RSET. Después de que 
se haya leído un registro con GET+, las variables citadas en la ins- 
trucción FIELD pueden utilizarse inmediatamente como variables 
normales. Veámoslo escribiendo el programa de lectura del fiche- 
ro NOMBRES PROPIOS, 


100 OPEN "R“,R2, "NOMBRES PROFIOS”", 50 

105 REM 

110 FIELD 42,30 AS N$,2D AS AR 

120 REM 

130 FRINT "QUE NOMBRE QUIERE LEER:1-10 (0 FINAL)" 
135 REM 

140 1IMPUT MRE+REM NUMERO DE REGISTRO 

145 REM 

190 1F NR=0ó THE GOTO 200 

160 IF NR<1 OR NR216 THEM GOTO 130 

165 REM 

170 GET +2,NR3REM LECTURA DEL REGISTRO 

1735 REM 

180 FRINT N$, Ab: REM IMPRESION DEL REGISTRO 
190 6070 130 

193 REM 

200 CLOSE 442: END 


La instrucción PRINT en la línea 180 hace uso directamente 
de las dos variables N$ y A$ de la instrucción FIELD, sin pasar a 
lravés de LSET o RSET. 

La instrucción FIELD hace referencia siempre a variables de 
cadena. Si queremos grabar números en un fichero directo, no po- 
demos hacerlo directamente mediante variables numéricas, sino 
de forma indirecta a través de variables de cadena. Para convet- 
tir datos numéricos en una cadena se puede recurrir a la función 
STR$, y para lo contrario, a VAL, pero muchas versiones del BA- 
SIC, como la de Microsoft, proporcionan un conjunto de funcignes 
especiales que hacen más inmediata la conversación de números 
en caderas para grabarlos en los ficheros directos. Estas funcio- 
nes son: MKI$, MKS$ y MKD$ La primera se refiere a los números 
enteros; la segunda, a los números de simple precisión (números 
con seis cifras significativas), y la tercera, a los números de doble 
precisión (con dieciséis cifras significativas). 

Por el contrario, cuando se lee un fichero numérico se con- 
vierten las cadenas en números con CVl, CVS y CVD, que tratan 
alos números enteros, a los de simple precisión y a los de doble 
precisión, respectivamente, 

Una vez más, con un pequeño ejemplo consideramos que se 
aclararán los conceptos: 


BO REM OOOO OOO O (ORO ROJO IOIOIOR KE 
$0 REM X APERTURA DEL REGISTRO * 
PS REA OOOO OOOO GOGO Odia RIO or K 
100 DFENM “R",41."NUMERICO", 8 
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1039 REM RRKFIA RA RA RIRA ER RAMA MARA KAR 

110 REM 4 DEFINICION DEL REGISTRO * 

115 REA ORIO ROO OIOIOIOIOIOIOR OOOO: 

120 FIELD 41,4 AS X%,4 AS Ys» 

VB REA RIOR OROIOIORCROOROIOJOR: 

156 REM ok ESCRIBO VALORES * 

LIS REM OOOO OOOO ROOT 

140 Xx1=32.3452Y1=23.00333 

145 REM 

150 RSET Xb=MKS$ (X1) 

160 RSET YK=MKS$ (Y1) 

1,63 REM OIR OOOO OOO IO IO ORIO KK 
170 REMO INTRODUCCION EN EL FICHERO * 
REA OOOO OOOO ORIO JOR IO IOR OR OA 
1680 FUT 44,2 

TES EA OOOO ROO ORO OOOO ON od 

190 REM * LECTURA DE LOS VALORES * 

DIO EIA MORO OO OOOO ICO O Kio 

210 GET 1,1 

220 REM HARAARERAA RIA REF SERA REA NAAA 
23% REM A TRANSFORMACION DE LOS VALORES £ 
24D REM FARARA KARA LA FA RKI VANE RARA ARANA 
250 R1i=CVS (X$) 

260 RErOYS (Y 16) 

FO PEINTO ORI, 

BBD RED OOOO OOOO ORO Rod Io 

2853 REM OK CIERRE DEL FICHERO k 

LIO REA OOOO OOOO OR OOOO 

300 CLOSE 41 


El fichero tiene un solo registro con dos campos, en los que 
se escriben dos números reales de precisión simple, que ocupan 
4 bytes cada uno, y luego se leen. 


Una matriz numérica en fichero directo 


En los apartados anteriores hemos visto el ejemplo de un fi- 
chero secuencial en el que se grababa una gran matriz numérica. 
Como prometimos entonces, vamos a resolver el mismo proble- 
ma utilizando un fichero directo, En el mismo programa inserta- 
mos tanto la parte de escritura como la de lectura de la matriz, 

También en este caso suponemos que la matriz es numérica 
y que tiene 100 filas y 50 columnas (línea 170), pero podría ser mu- 
cho más amplia para su grabación en disco, o bien tener dimen- 
siones variables y determinadas por una sentencia INPUT ante- 
rior que sustituyera a la línea 170. 

En la línea 200 se realiza la apertura del fichero con el pará- 
metro “R” (fichero relativo o directo), el número de canal +4] y el 
nombre del fichero MAT, DIR. El número 4 (longitud del registro) 
es obligatorio y sabemos que determina la longitud de todos los 
registros del fichero. El valor dado (4) puede parecer pequeño, 
pues los ficheros tienen registros que suelen ser mucho más lar- 
gos, pero el nuestro es solamente un ejemplo que se refiere a la 
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grabación de números reales (de simple precisión) que ocupan 
4 bytes cada uno. 

Inmediatamente después de la apertura del fichero se debe 
preestablecer la estructura del registro con la instrucción FIELD, 
En nuestro caso, el registro tiene un solo campo de 4 bytes de lon- 
gitud. El nombre del campo es FÉ 

Antes de explicar el significado de la instrucción de la línea 
240 y de la subrutina que comienza en la 520, vamos a ver el res- 
to del programa. En ¿as líneas 260 a 300 se pregunta si se preten- 
de leer o escribir el fichero o si se quiere terminar. En el tercer 
caso, antes de ejecutar END, el fichero se cierra con CLOSE. 

Si se quiere leer un elemento de la matriz se tendrán que pro- 
porcionar los números de fila y de columna (R y C). Para pasar 
de estos dos valores al de P, que indica la posición relativa del 
registro en el fichero, se utiliza la pequeña fórmula de la línea 360. 
No olvidemos que un fichero es siempre una estructura lineal 
mientras que nuestra matriz es bidimensional. Para compren- 
der cómo se calcula P basta pensar en el corte, línea por línea, 
de la matriz y en la posterior disposición de estas “rebanadas” 
en fila, 

En la línea 370 GETH lee el registro P-ésimo, que se convierte 
en un número mediante la función CVS (CVS para los números 
reales con precisión simple, CVI para los enteros y CVD para los 
números reales de precisión doble). 

Por el contrario, si se elige escribir un elemento de la matriz 
(subrutina 420) se calculará el puntero P como se vió antes (línea 
450) y luego se transformará en cadena el elemento numérico con 
MKS$. Este valor se asignará al campo F$ mediante la instrucción 
LSET (línea 470). Finalmente, PUTA transfiere el registro P-ésimo 
al fichero. E 

Veamos ahora el significado de la línea 240. Para explicarnos 
mejor, supongamos que esta línea falta y que, antes de haber es- 
crito ningún registro, se trata de leer alguno, A primera vista po- 
dríamos pensar que el ordenador nos debería avisar de que ese 
registro no existe o bien darnos como respuesta un valor nulo. En 
realidad, el ordenador intenta leer la parte de disco en donde de- 
biera encontrarse el registro y lee los bytes que encuentra en ese 
punto (oytes que forman parte de cualquier otra grabación ante- 
rior). Esta situación absurda de lectura de datos "sucios" puede 
evitarse de una sola manera: preparando (inicializando) toda la 
¿ona del disco en la que se grabará el fichero 

Esta operación es precisamente la que desarrolla la subrutina 
en la línea 520. La función STRING en la línea 540 prepara una ca-. 
dena de 4 caracteres “nulos” (ASCI 0). El doble bucle FOR NEXT 
apunta sucesivamente a todos los registros del fichero en los cua- 
les escribe estos cuatro caracteres nulos. De este modo, si en cual- 
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quier momento tratara de leer un registro no escrito todavía, el or- 
denador le proporcionaría una cadena nula. 

Para llamar a la subrutina de inicialización del fichero se re- 
curre a la función LOF (LOF <canal>) que nos indica cuántos blo- 
ques de un fichero relativo están "comprometidos” con anteriori- 
dad, Si este valor es nulo (línea 240) quiere decir que no se hizo 
ninguna escritura, y entonces se salta a la línea 520. 


lo 
ERE OOOO OOOO OIOGIOIOJOIOJOIOJO: 
REM ox ESCRITURA Y LECTURA: * 
REM *X DE UNA MATRIZ MUMERICA * 
REM X*X EN FICHERO DIRECTO * 
REM ROO ROO ROO OOOO RR 
REM 
REM 
TR=100: TE=503 REM MATRIZ DE 100 X 50 


REM 
REM 

OPEN "R",41, "MAT.DIR", 4 

REM 

FIELD 41,4 AS F$:REM BUFFER 

REM 

1F LOE(1)=0 THEN GOSUB 520 

REM 

INFUT "LECT.ESCRIT.FINAL (LS, F)"5YS 
IF Y$="”L" THEN GOSUR 33O 

IF Y$="S" THEN GOSUE 420 

IF Ys="F" THEN CLOSE $1: END 

GOTO 260 


HEN as LECTURA DE LA MATRIZ 


INFUT "FILA Y COL. "¿R,0 
p=(R=1)TO+O 

BET +4L,F 

FRINT "ELEMENTO: "¿0YS(F6) 


EPL imss ESCRITURA DE LA MATRIZ +. 


INPUT "FILA Y DOL.z "4R,C 
Ps (Roi) ATO+C 

INPUT "ELEMENTO: "¡ErREM NUMERO REAL 

LSET Fé=MkS$ (E) 

PUT 41L,P 

RETURN 

REM 

REM 

REM --— IMICIALIZACION DE LA MATRIZ ---- 
REM 

LGET FS=STRINGS (4, CHR$ (0)) 

O REM 

FOR Rei TO TR 

FOR Ds1 TO TC 

F= (Rd) RTO+C 

590 PUT H1,P 

6% NEXT E 
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610 NEXT KR 
420 REM 
$30 RETURN 


Gestión de los clientes de un hotel 


Después de haber hablado tanto de ficheros, le proponemos 
un programa, algo más completo, en el que se controla la presen- 
cia de los clientes de un hotel. El núcleo fundamental del progra- 
ma es un fichero de acceso directo en el que se incluyen los da- 
tos más importante de cada cliente: 


0 nombre y apellido, 
8 fecha de llegada y 
9 precio de la habitación por día. 


Para tener acceso a los registros individuales se utiliza como 
"clave” el mismo número de las habitaciones. En el supuesto de 
que el hotel tenga 100 habitaciones, utilizaremos los números del 
l al 100 para apuntar a los registros. Evidentemente este número 
se puede modificar cambiando la línea 170. 

Las funciones desempeñadas por el programa son: 


O registro de una nueva llegada, con indicación en el fichero del 
precio de la habitación, de la fecha de llegada y del nombre 
del huésped, 

O impresión de la lista de nombres de los clientes alojados en el 
hotel; 

0 en caso de partida, cálculo del importe a pagar, y, finalmente, 

e cierre del programa. 8 


Las fechas de llegada y partida, proporcionadas en la forma 
de día y mes, se convierten en número del día del año (1-365) 
para facilitar el cálculo de los días de estancia, Por sencillez no se 
tiene.en cuenta el año y, por consiguiente, el programa no funcio- 
naría para clientes que estuvieran en el hotel "a caballo” entre dos 
años. Los días de estancia se calculan como diferencia entre la fe- 
cha de partida y la de llegada más uno (línea 4120). Ello es así 
para tener en cuenta que se paga la habitación aunque sólo se per- 
manezca en el hotel desde la mañana a la tarde; si no está de 
acuerdo puede suprimirlo. 

Como vimos en casos análogos, cuando el programa se utili- 
za por primera vez se debe inicializar el fichero directo. Así, en 
la línea 250 comprobamos con LOF(1) si el fichero no ha ocupado 
todavía ningún bloque; en tal caso saltamos a la subrutina de la 
línea 1000, que graba 100 registros con 38 caracteres nulos cada 
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uno (CHR*(0)). Dese cuenta que esto se hace con la variable IN$ 
que se definió como buffer en la línea 230, mientras que en la 220 
usamos PR$, AR$ y NCH Esto es totalmente correcto siempre que 
en una misma operación sólo usemos uno de los dos buffers crea- 
dos, Cuando utilicemos normalmente el programa, además del fi- 
chero principal (HOTEL), se debe utilizar otro pequeño fichero 
(que hemos elegido secuencial) en el que indicar las habitacio- 
nes libres (HABITACIONES). Este fichero contiene una copia del 
vector LIB (100) en el que están indicadas las habitaciones libres 
con un 0, y las ocupadas, con un 1, Así, cuando se inicializa el fi- 
chero HOTEL se inicializará también el fichero HABITACIONES, 
todo él con valores 0 (línea 1170). 

Cuando se ejecuta el programa, lo primero que sucede es 
que el fichero HABITACIONES se copia en LIB (líneas 270-340). A 
continuación aparece el menú, que pide al conserje del hotel la 
operación que desea efectuar. 

Si es la llegada de un nuevo cliente, el programa busca, en 
el vector LIB, si hay habitación libre (líneas 2020-2120), CAM es 
el número de la habitación que ha de asignarse al cliente (con el 
número O todas las habitaciones están ocupadas). El bucle esta- 
blecido Sl las líneas 2060-2080 busca el primer elemento nulo del 
vector LIB: 


2070 IF LIB(K) = 0 THEN CAM = KK = CA 


En caso afirmativo, K se hace igual al número de la habita- 
ción, y luego, para salir correctamente del bucle, se establece 
K=CA (CA es el número total de las habitaciones). 

Si no hay ninguna habitación libre, el programa imprimirá un 
aviso (línea 2100). 

Una vez encontrada una habitación libre (CAM) se deben dar 
los datos de entrada: nombre del cliente, fecha de llegada y pre- 
cio. La fecha se convierte en el día del año DA (subrutina de la 
línea 5000). La escritura en el buffer definido en la línea 220 con 
la instrucción FIELD se realiza con las tres instrucciones LSET (1í- 
neas 2230-2250). Las variables numéricas PREC y DA son conver- 
tidas en cadenas con MKS$ En la línea 2270 se graba en el fichero 
el registro de la habitación CAM e inmediatamente después (¡se- 
ría lamentable que un conserje lo olvidara!) se indica automática- 
mente que la habitación está ya ocupada LIB (CAM) = 1. 

La subrutina para la lectura de los clientes alojados en el,ho- 
tel es muy sencilla. Con la instrucción IF THEN en la línea 3030 
se buscan las habitaciones ocupadas; a partir de ellas se lee el re- 
gistro con GETH+ y luego se imprimen los datos, 

Cuando se va un cliente, a través de su número de habitación 
PA. se lee el registro, a partir del cual se obtiene el precio de la 
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habitación y el día de llegada. Con éstos y la fecha de partida que 
se solicita se calcula el importe total a pagar (línea 4180). Inme- 
diatamente después se pone a “cero” el registro (línea 4250-4260) 
y se indica que está libre la habitación correspondiente en el vec- 
tor LIB. 

El cierre del programa copia el vector LIB en el fichero HA- 
BITACIONES para permitir el correcto control del hotel en la si- 
guiente ejecución del programa, y luego cierra los dos ficheros 
HOTEL y HABITACIONES. 

Damos a continuación las variables utilizadas en el programa: 


0 CA número de habitaciones del hotel, 

O PREPREC precio de la habitación, 

0 DDMM día y mes, 

O AR$ÍDA día del año, 

0 NCÍÉ NOM$ nombre y apellidos del cliente, 

O IN$ cadena nula de inicialización, 

O LIB vector de ocupación de las habitaciones del 
hotel, 

O CAM primera habitación libre, 

OPA - habitación del huésped, 

O DE días de estancia, 

O PAG importe del servicio. 


100 REA OOOO OOROOIOIOIOIOIOIOIOIOR ORO 

110 REM k  RECEFCION DE HOTEL  * 

120 REM ROIOOOIOIOOOIOIOGIORIOIOOIO( OK 

130 REM 

140 REM 

150 REM 

160 REM 

170 CA=100:REM NUMERO DE HAEITACIONES DEL HOTEL. 
180 DIM LIR(CA) REM VECTOR HABITACIONES LIBRES 
190 REM 

200 OPEN "R",$1, "HOTEL", 38 

210 REM 

220 FIELD +$1,4 AB FR4,4 AB AR$,30 AS NUS 

230 FIELD $+1,38 AS INS 


240 REM 

250 1F LOF(1)=0 THEN GOSUR 1000 

240 REM 

270 REM ---- PREFARACION DE VECTOR LIB ---- 
280 REM —-- DE LAS HABITACIONES LIBRES --"- 
FOO DPEN "1,42, "HARITACIONES” 

310 REM 


320 FOR J=1 TO CA 

330 INPUT *2,L.156(J) 

340 NEXT J 

350 REM 

360 REM 

370 REM ===> MENL DE RECEPCION ---- 
380 REM 

390 CL5: REM BORRADO DE LA PANTALLA 
400 REM 
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80 


410 

420 

430 

440 

450 

450 

470 

480 

490 

500 

s10 

520 

530 

540 

550 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1140 
1170 
1160 
1190 
1200 
1210 
12%0 
12300 
1240 
1250 
2000 
2010 
2020 
ZO03O 
2040 
2030 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
ZaZO 


2230 


PRINT "NUEVA LLEGADA =-=====-=- y” 
PRINT "CLIENTES DEL HOTEL --- 2” 
PRINT "PARTIDA DEL CLIENTE -- P" 
PRINT “FINAL DE OPERACIONES - F 
REM 

INPUT "ELIJA SU OFCION";Rs 

REM 

IF R$="N" THEN GOSUB 2000 

IF R$="C" THEN GOSUB 3000 

IF R$="P" THEN GOSUB 4000 

IF R$="F" THEN GOSUB 8000 
GOTO 440 
REM 

REM e 
REM 

REM -—--— SUBRUTINA DE INICIALIZACION ===" 
REM 

REM --- PREPARACION DEL FICHERO HOTEL --- 
REM 

LSET IN$=STRING (38, CHR$ (0) > 

REM 

FOR K=i TO CA 

PUT $1,K 

NEXT K 

REM 


REM --- FREFARACIOÓN DEL FICHERO HABITACIONES --- 


OFEN "0",2, "HABRITACIONES” 

REM 

FOR J=1 TD CA 

PRINTHZ, LIBRE 

NEXT J 

REM 

CLOSE 42 

REM 

RETURN 

REM 

REM 

REM 

REM SUBRUTINA DE NUEVA LLEGADA --=- 
REM 

REM -—-- BUSQUEDA DE HABITACION LIRERE --- 
REM 

CAM=0: REM NUMERO DE LA PRIMERA HABITACION 
REMO LIBRE (0 TODO OCUPADO) 

FOR Ksl TO CA 

IF LIB) =0 THEN CAM=kzk=C 

NEXT K 

REM 

TF OCAM=0 THEN PRENT “TODO OCUPADO! "+ RETURN 
REM 

PRINT “HABITACION "¿CAM¿" LIBRE" 

REM 

INPUT "NOMBRE Y APELLIDOS DEL CLIENTE (230 CAR, 
IF LEN(NOM$)330 THEN GOTO 2140 

INPUT "FECHA DE LLEGADA (DD/MM):"3DD, Mm 
INPUT "PRECIO DE LA HABITACION: "¿PREC 
REM 

GOBUE S000;s REM CONVERSION DE LA FECHA 
REM 

REM —- ESCRITURA EN EL BUFFER --- 

REM 

LBET PRS=MK8$(PREC) 


MAX.) "po 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2710 
2320 
2330 
3000 
3010 
3oZÓ 
3030 
3040 
3050 
3060 
5070 
3080 
3090 
3100 
4000 
4010 
4OZO 
YOFO 
4090 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4750 
4260 
4270 
4290 
ARO 
4300 
4310 
S000 
5010 
5020 
OO 
5040 
soso 
5060 
35070 
5080 
5090 
5100 
s110 


LSET AR$=MKS$ (DA) 
LSET NC$=NOM$ 
REM 
PUT 41,CAM:REM CAM ES TAMBIEN EL PUNTERO DEL REGISTRO 
LIB(CAM)=1:REM HABITACION OCUPADA 
REM 
RETURN 
REM 
REM 
REM 
REM ---- SUBRUTINAS DE CLIENTES DEL HOTEL -=-- 
REM 
FOR Kwi TO CA 
IF LIB(K)=1 THEN GOTO 3070 
GET $41,K:REM LECTURA DEL REGISTRO 
REM 
PRINT "D,"¿NC$;" HABITACION "¿K 
NEXT K 
REM 
REM 
REM : 
REM ---- SUBRUTINA DE PARTIDA ---- 
REM 
INPUT "QUE HABITACION QUEDA LIBRE"¿PA 
INPUT "FECHA DE PARTIDA (DD/MM) : "DD, MM 
GOSUB 5000:REM DIA DEL ARD 
REM 
REM LECTURA DEL FICHERO 
REM 
GET 41,FA 
REM 
REM DIAS DE ESTANCIA 
REM 
=DA-CVS (ARS) +1 
REM 
PRINT "D.",NCS; "HA ESTADO “¿DE;" DIAS" 
REM 
REM PAGO DEL SERVICIO 
REM 
FAG=DEXCVS(PR$) 
REM 
PRINT "EL PRECIO DE LA HABITACION ES: "¿PAG 
PRINT "GRACIAS Y ADIOS" 
REM 
LIE(PA)=03 REM DEJAR LIBRE LA HABITACION 
REM 
LSET IN$=STRINGS (38, THR$ (0) ) 
PUT h1,PA 


REM 


FOR J=1 TO MM 
READ MM 

DA=DA+MM 

NEXT y 

REM 

DATA 0,31,28,31,31,30,31 
DATA 30,31,31,30,31,30 
REM 

RETURN 
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s120 
5130 
5140 
8000 
Bo10 
Bo20 
8030 
8040 
8050 
B050 
B070 
$080 
8070 
B100 
Bri0 
8120 
8130 
B140 
150 
8150 


REM 

REM 

REM ; 

REM =--- CIERRE DEL FROBRAMA --=-=- 

REM 

REM --— ALMACENAMIENTO DEL VECTOR ---- 
REM --- DE LAS HABITACIONES LIBRES --- 
OPEN "0",4$2, "MARITACIONES"” 

REM 

FOR J=1 TO CA 

PRINT $2,LIB(J> 


NEXT J 

REM > 

CLOSE 421REM CIERRE DEL FICHERO DE LAS HABITACIONES 
REM 


CLOSE $12REM CIERRE DEL FICHERO DEL HOTEL 
REM 

PRIMT "FINAL DEL TRABAJO" 

REM 


END 


INSTRUCCIONES GRAFICAS Y ANIMACION 


¿Por qué los gráficos? 


abemos que los ordenadores dialogan con no- 
sotros fácilmente mediante los caracteres alfa- 
béticos y numéricos normales. Un programa se 
escribe como si fuera una carta a un amigo y el 
ordenador responde con mensajes que se leen 
como si estuvieran escritos en un periódico, Jun- 
to a este "canal" alfanumérico podemos comuni- 
camos también con otros medios, como son la 
uy imagen y el sonido. 

Las imágenes son todo lo que el ojo ve y la mano puede tra- 
zar, y los sonidos son todo lo que oímos y que nuestra garganta 
ú otro instrumento puede generar. Cuando utilizamos las tmáge 
nes para comunicarnos con el ordenador hacemos uso de gráfi 

os. En el segundo caso no existe todavía un término específico, 
salvo hablar de música con ordenador o síntesis vocal. 

Con los gráficos del ordenador, el concepto de proceso de da- 
tos se amplía y asume aspectos muy diferentes y fascinantes. Si 
proporcionamos a un ordenador imágenes, por ejemplo el dibujo 
de un automóvil, nos puede responder con otros dibujos; como la 
vista frontal o lateral del mismo automóvil y, al mismo tiempo, nos 
puede calcular el área de una de sus superficies. Para lograr esto 
debemos disponer de programas que sean capaces de realizar el 
proceso de datos graficos; estos programas constituyen lo que se 
denomina el software gráfico. 

Los gráficos permiten emplear el ordenador de un modo com. 
pletamente nuevo. Junto a los periféricos tradicionales encontra- 
mos los adaptados a la entrada y a la salida de imágenes: plotter, 
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ES Figura 1.—El AMSTRAD-664, capaz de comunicarse mediante gráfi- 
veo cos y sonido (en estéreo). 


tablillas gráficas, lápices ópticos, ratón, joystick, track ball, etc, Una 
versión diferente, más reducida, pero muy importante, de los grá- 
ficos es la que se refiere a los ordenadores personales 

Para efectuar gráficos de tipo profesional es necesario dispo- 
ner de ordenadores de dimensiones medias o grandes, de peri- 
féricos gráficos muy costosos y de un software gráfico un tanto 
complejo. Un requisito muy importante es el de la velocidad de 
cálculo de la CPU, que debe ser muy elevada. Para comprender 
esto considere que, con frecuencia, para situar un solo punto de 
una imagen se deben efectuar primero cálculos largos y comple- 
jos. En una imagen constituida por miles de puntos, si el cálculo 
le cada uno de ellos no realiza en un tiempo muy breve, no 
se conseguirá ningún resultado práctico, 

Es precisamente ésta la limitación de los ordenadores perso- 
nales en relación con los gráficos profesionales: son demasiado 
lentos y no tienen suficiente memoria central, pero, sobre todo, el 
precio de los buenos periféricos gráficos es desproporcionado 
con respecto al de cualquier ordenador personal, 

Por todo esto, con los ordenadores personales han nacido 
unos nuevos tipos gráficos. Unos gráficos económicos y sencillos, 
pero de gran utilidad, que les coloca a la: altura de sus hermanos 
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mayores. Los gráficos de los ordenadores personales son una for- 
ma de presentar los resultados de un programa y constituyen un 
modo para hacer más agradable la visualización de los datos, pero 
son también un medio de realizar programas de juegos ("los de- 
nominados videojuegos”) o para hacer más cercanos o amigables 
muchos programas que por sí solos serían aburridos, tales como 
los programas didácticos. 

Esto es una necesidad y una exigencia de los ordenadores 
personales y justifica la existencia, tanto en el BASIC como en otros 
lenguajes para ordenadores personales, de instrucciones gráficas 
que no existen en las versiones para grandes ordenadores de los 
mismos lenguajes. Se trata de instrucciones que permiten colorear 
la pantalla, trazar puntos, rectas, curvas o programar figuras (los 
denominados “sprites”) que se mueven y animan con facilidad en 
la pantalla, 

Como confirmación de que los gráficos "personales" tienen su 
papel autónomo basta observar que los ordenadores más ricos en 
estas opciones son precisamente los ordenadores personales de 
la gama más baja y de mayor éxito comercial. Los gráficos en or- 
denadores personales “mayores” no se proporcionan para “jugar”, 
sino para enriquecer la visualización de resultados en los progra- 
mas profesionales, 


El “sketchpad” de Ivan Sutherland 


Cualquier alusión histórica a los gráficos nos lleva a muchos 
años atrás. La necesidad de comunicarse con el ordenador, no so- 
lamente en el modo alfanumérico, sino también con la posibilidad 
de efectuar algoritmos en conjuntos geométricos, se sintió inme- 
diatamente por los primeros usuarios de los ordenadores. 

El primer sistema gráfico fue desarrollado en el año 1963 en 
el prestigioso MIT de Boston por Ivan Sutherland. El sistema, que 
se llamaba SKETCHPAD (tablero de dibujo), era interactivo, per- 
mitía dibujar en la pantalla figuras elementales y estaba provisto 
del primer lápiz óptico ("light pen”). Mediante mandos situados 
cerca de la pantalla (Fig, 2) era posible obtener figuras elementa- 
les, que luego se desplazaban y se agrupaban en la pantalla con 
el lápiz óptico, 

El sistema Sketchpad fue el primer ejemplo de "trabajo con 
gráficos” y requería fundamentalmente una pantalla gráfica, un lá- 
piz Óptico y el software necesario, Junto a este tipo de hardware 
se desarrollaron, a partir de los años cincuenta, otros periféricos, 
El más importante fue el plotter digital (digitalizador), gracias al 
cual se pueden hacer unos maravillosos y perfectos dibujos cons- 
tituidos por puntos, 
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Sl Figura 2.—El ordenador Sketchpad de Ivan Sutherland. 


Programación de gráficos en los ordenadores personales 


Todas las versiones del BASIC permiten realizar gráficos, pero 
las instrucciones disponibles para dicha tarea son muy diferentes 
de un ordenador a otro. Si quisiéramos convertir un programa de 
Apple que controle ficheros en un programa para el Commodore 
encontraríamos, casi con toda seguridaa, las correspondencias en- 
tre las instrucciones de los dos ordenadores. Dicho de otro modo, 
el algoritmo concebido para controlar ficheros con el ordenador 
de Apple sigue siendo el mismo en el caso del Commodore y 
sólo hay que volverlo a escribir haciendo uso de instrucciones 
con diferentes sintaxis, Con los gráficos esto es prácticamente im- 
posible. Es precisamente el algoritmo gráfico el que cambia por 
completo de un ordenador Apple a un Commodore o de un Spec- 
Irum a un IBM PC o a cualquier otro ordenador, 

Con un poco de buena voluntad, como hicimos en otros ca- 
sos, es posible determinar algunos métodos comunes para hacer 
gráficos. Fundamentalmente existen tres: 


0 empleo de caracteres semigráficos, 
O creación de sprites (objetos móviles), 
0 conirol directo de los puntos de pantalla (“pixels”), 
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Caracteres semigráficos 


Se trata de la programación gráfica más sencilla y más común, 
pero también la que proporciona los resultados menos atractivos. 
El conjunto de los caracteres utilizados por el ordenador se am- 
plía con nuevos caracteres que representan figuras elementales 
tales como trazos verticales, horizontales, diagonales, cuadrados 
rellenos, etc. (Fig. 3). Estos caracteres están codificados en ASCII, 
tal como los alfanuméricos, y se tratan de un modo idéntico. Para 
trazar un dibujo se hace uso de instrucciones PRINT que impri- 
men cadenas con estos caracteres. 

Muchas veces se trazan dibujos elementales sin utilizar ni si- 
quiera los caracteres semigráficos, ayudados solamente por ca- 
racteres simples, tales como el asterisco, el signo menos o el sig- 
no de exclamación. Un dibujo de esta clase es realizable por cual- 
quier ordenador personal, y éste es el único caso de compatibi- 
lidad completa entre ordenadores, 


o 4. »a.plD 
Ss 0 yu a po 
O HB [B O MN 
O A Uy BD 
E E q Q E . 
a la Do, 
an .p ga "| o ; 
Ga 0 [A [la O 
A E Ba ll 08 
o 5 q dl E 
y q q ml E 
HB .DUEO 
HD y 
D 


Figura 3.—Conjunto de caracteres semigráficos. 


87 


Por ejemplo, con las instruccionies: 


PRINT WAARARAACAAA 


PRINT '* x 
se puede dibujar un cuadrado 
SONS cciCAk 
k de 
ps ba 
*k * 
> * 
ROSCA SÍ 


Si se quisiera dibujar un círculo o una curva más compleja es 
fácil imaginar que los resultados dejarían bastante que desear. 

El primer tipo de gráficos tiene una limitación notable, y es 
que permite trazar solamente dibujos simples y modulares, en fun- 
ción del conjunto de caracteres semigráficos que posea el orde- 
nador. En compensación, es muy fácil de programar porque, como 
dijimos anteriormente, emplea las instrucciones PRINT normales. 


Sprites 


Los sprites son un paso adelante en la programación gráfica 
y permiten obtener resultados muy satisfactorios. Un sprite es una 
pequeña imagen móvil que se construye por el programador. 
Cada sprite definido en un programa tiene su nombre (como una 
variable) y puede visualizarse a voluntad, desplazarse y ampliar- 
se en la pantalla con las instrucciones adecuadas. Con la alternan- 
cia de sprites diferentes se pueden conseguir efectos de movi- 
miento, y en el caso límite, crear algo muy similar a las imágenes 
de los videojuegos. Los sprites se definen al comienzo del pro- 
grama mediante una matriz (Fig. 4), Cada cuadrado elemental de 
la matriz define el estado (activado o apagado) de un punto de la 
pantalla. 

El número máximo de sprites, su tamaño y otras característi-' 
cas dependen del ordenador concreto. En general, cada sprite se 
mueve en un plano propio (como si fueran láminas plásticas su- 
perpuestas), cada uno con su prioridad. Así, por ejemplo, los equi- 
pos MSX admiten 32 planos más el fondo (Fig. 5). 


Gráficos por puntos 


El tercer tipo de gráficos es el más complejo, pero también 
el más perfeccionado. En este caso, el programador puede con- 
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FILAS 


COLUMNAS 


gy 4.—Matriz de creación de un sprite. 


7 


trolar cada elemento de imagen individual de la pantalla (pixel), 
eligiendo también el color que se le ha de dar. 

Los elementos de imagen, también denominados pixels (por 
la contracción de la denominación inglesa "picture cell”) son los 
puntos unitarios de una imagen digital. Un pixel equivale a un bit: 
punto luminoso encendido o apagado, Cuantos más pixels exis- 
tan en una pantalla (su número no depende del software, sino del 
hardware), tanto más definida y agradable será la imagen obteni- 
da, Actualmente, en los sistemas gráficos profesionales se pueden 
obtener imágenes de calidad superior a la de una buena fotografía. 

Muchos de estos sistemas tienen 1024 x 1024 pixels, que son 
más de un millón en la pantalla completa y cada uno puede ilu- 
minarse con cualquier color de entre 16 millones de colores. No. 
piense que este elevadísimo número de colores es desproporcio- 
nado, pues comprende los matices de intensidad de los colores 
de base, 
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eo] Figura 5.—Cada sprite es como si se moviera en un plano distinto 
de la pantalla. Según el ordenador, se admiten más o menos “planos”. 


Los ordenadores personales trabajan con un número de pi- 
xels inferior (por ejemplo, el Commodore 64 tiene 320x200 = 64000 
pixels). Si recordamos que las pantallas más usuales de presenta- 
ción visual no tienen “memoria” y que su imagen debe ser conti- 
nuamente “refrescada”, ello significa que los pixels de una ima- 

. gen deben almacenarse en una memoria RAM que funciona como 
un buffer (Fig. 5). Esta zona de memoria RAM o "página gráfica”, 
contiene un mapa de los puntos de la pantala y por este motivo, 
se denomina también memoria de "mapeado” de bits (en inglés, 
bit-mapping memory). Puesto que cada byte de memoria contie- 
ne 8 bits, se puede comprobar que el Commodore 64 utiliza para 
su página gráfica 8 Kbytes (64000/8=8 K.). 

Cuanto mayor sea el número de pixels, tanto más grande debe 
ser la cantidad de memoria RAM necesaria para almacenar la ima- 
gen. Se comprende, pues, por qué los ordenadores personales no 
pueden tener muchos pixels, Si además son gráficos en color, jun- 
to a Cada bit que indica un pixel activo debemos dar también la 
información de color, Para elegir entre los 8 colores habituales, en 
la mayor parte de los ordenadores personales son necesarios 
3 bits (3 bits permiten seleccionar uno de entre ocho casos posi- 
bles). En el caso de una página gráfica de 8 Kbytes se deben aña- 
dir, desde el punto de vista teórico, otros 24 Kbytes para el color, 

Los gráficos por puntos, que también se denominan de alte re- 
solución, hacen uso de instrucciones que controlan cualquier pun- 
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tres bits de color 


8 pixels son 

almacenados 

en un byte 
pixel en 
memoria 


página RAM de 
activación 
de los pixels 


pixel en 
pantalla 


] Figura 6.—Páginas gráficas de un ordenador. 


lo individual de la pantalla, estando definido cada punto por sus 
coordenadas X, Y. Con frecuencia, para fines prácticos, existen ins- 
trucciones que hacen trazar una recta entre dos puntos (un vec- 
tor) o bien un círculo o una elipse. Otras instrucciones son capa- 
ces de rellenar con color una curva cerrada, 


Un ejemplo gráfico 


No es fácil dar ejemplos de gráficos sin caer en la banalidad 
o sin recurrir a instrucciones demasiado específicas (y "oscuras”). 
No obstante, consideramos que para hacer algo más concreto 
cuanto hemos dicho, es interesante mostrar un programa, escrito 
para el ordenador Apple Il, en el que se dibuja un cuadrado que 
se mueve rebotando de un extremo a otro de la pantalla, Con res- 
pecto a las tres clasificaciones antes aludidas, este ejemplo entra 
dentro de la tercera categoría, la de gráficos de alta resolución. 

El lado L del cuadrado, que queremos hacer desplazar, se so- 
licita como dato a la entrada (línea 180). Puesto que trabajamos 
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en alta resolución, este valor corresponde al número de pixels uti- 
lizados por el ordenador para dibujar cada lado del cuadrado, La 
limitación a 100 se eligió para tener un cuadrado aceptable, con- 
siderando que existen 280 x 160 pixels en las coordenadas X e Y 
de la pantalla del Apple II. La instrucción HGR en la línea 220 lla- 
ma la "página 1” de los gráficos de alta resolución del ordenador 
Apple Il (en realidad, este ordenador tiene dos páginas gráficas 
de alta resolución). La instrucción HPLOT es la que traza el cua- 
drado como sucesión de cuatro segmentos L consecutivos: 


HELOT VERTICE1 TO  VERTICEZ 
TO VERTICES 70  VERTICEA 
TO VERTICEL 


La repetición final del vértice l sirve para cerrar el cuadrado. 
El programa elige al azar la coordenada Y del primer vértice del 
cuadrado, el situado en la parte superior izquierda, mientras que 
la X inicial es nula. Los incrementos DTX y DTY, para el desplaza- 
miento del cuadrado son elegidos al azar en las líneas 260 y 270. 
Las instrucciones 310 y 320 sirven para controlar que el cuadrado 
no salga de la pantalla, sino que rebote; en efecto, apenas toca los 
bordes, los incrementos DTX y DTY cambian de signo y así se res- 
tan en lugar de sumarse, o viceversa. 

En las líneas 340 y 410 se elige el color de trazo. Con 
HCOLOR = 3 el cuadrado se traza en blanco, mientras que con el 
valor 0, el color es negro como el fondo de la pantalla. En la prác- 
tica, el cuadrado se dibuja primero en blanco y luego en negro y 
ello equivale a borrarlo, pero después de algunos segundos, que 
son suficientes para que nuestros ojos puedan verlo, Repitiendo 
este doble trazo se obtiene un efecto visual de movimiento, El pe- 
queño bucle de espera en la línea 390 sirve para hacer más sua- 
ve el movimiento. 


100 REM MRORIO OPIO OR 

110 REM k UN CUADRADO * 

120 REM * QUE REBOTA *k 

130 REM GOOICIODIOOOIOOIONR 

140 REM 

150 REM 

140 TEXT: HOME 

170 REM 

180 INFUT "LADO DEL CUADRADO (1-100): "¿L 
190 1F L<i OR L>100 THEN GOTO 180 

200 REM 

210 REM 

220 HGRIREM ACTIVACION DE LA ALTA RESOLUCION 
230 REM 

240 Xk=0D1 Y=RIND (1) (150-L.) 

250 REM 

260 DTX=RND(1)*5 

270 DTY=RND (15 
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Z2B0 REM , 

290 REM --- INICIALIZACION DEL MOVIMIENTO —-- 
300 REM 

210 TF X+*DTX+L>279 OR X+DTX%<D THEN DTX=-DTX 
320 1F Y+DTY+L*159 OR Y+DTY<O0 THEN DIY=-DTY 
330 REM 

340 HCOLOR=3:REM TRAZO DE COLOR BLANCO 

350 REM 

360 X= Xx+DTX: Y=Y+DTY 

370 HPLOT X,Y TO X+L,Y TO X+L,¿Y+L TD X,Y+L TO %,Y 
380 REM 


390 FOR K=1 TO S0 ¿NEXT Ki REM BUCLE DE RETARDO 
400 REM 

410 HCOLOR=04 REM TRAZD EN COLOR NEGRO CKORRADO) 
420 REM 

430 HELIF X.Y TO X+L,Y TO X+L,Y+L TO X,Y+L TO X.Y 
440 REM 


450 GOTO 310 


Como ya habrá observado, el diseño de gráficos, aunque no 
es difícil, sí resulta complicado, especialmente por la diversidad 
de instrucciones de cada ordenador. Pero no se preocupe dema- 
diado: habrá más libros de nuestra biblioteca que vuelvan sobre 
estos temas. 
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RESUMEN DE LAS INSTRUCCIONES ESTUDIADAS 


ara facilitar al lector la rápida solución de cual- 
quier duda sobre la sintaxis de las instrucciones 
vistas en este volumen de la BBI hemos confec- 
cionado un pequeño resumen-diccionario, que 
esperamos le resulte útil. 

Además de definir la función de la instrucción y 
su sintaxis, incluye unos cuantos ejemplos de 
muestra. En ningún caso incluimos el número de 
PENA línea, pues damos por sentado que el lector sabe 
que si la instrucción forma parte de un programa debe llevarlo y, 
en caso contrario (ejecución directa), no. 

En las definiciones que siguen usaremos los símbolos. 


[] elemento opcional 
() posibilidades alternativas 
<> deben ser determinados por el usuario. 


CLOSE 


Cierra el canal lógico abierto mediante un OPEN 


CLOSE 4<n.2 canal> 


CLOSE +1 


CVI, CVS, CVD 


Convierten una cadena en el número que representa (entero, 
de simple o de doble precisión, respectivamente). 


CVI<variable de cadena> 
CV8<variable de cadena> 
CVD<variable de Cadena> 


E = CVI (ENTEROS) 
S = CVS (SIMPLEPRE$) 
D = CVD (DOBLEPRES$) 


DEP FN 


Crea una nueva función, que se podrá usar allí donde se in- 
cluya esta definición 


DEF FN (<parámetro mudo 1> [,..]) = 


DEF FN (H) = 2*H+5 

DEF FN (R) = 2*mr*R 

" FIELD 

Determina una zona de memoria para buffer de un fichero di- 


recto, especificando longitudes de cada campo y las variables 
asociadas, 


FIELD 4<n2 canal>, <longitud 1> AS <variable de cadena 1> 
[¡<long 2> AS <var 2>...] 


FIELD +1, 27 AS NOMBRES 10 AS DNIS 


GETH 


Carga en las variables dadas en FIELD los valores del regis- 
tro seleccionado de un fichero directo 
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GET K<n* canal>, <n2 registro> 


GET $1, 1 
GET +3, PP+1 


GOSUB 


Cede el control a una subrutina que comienza en el número 
de línea especificado 


GOSUB <n* de línea> 


GOSUB 5000 


INPUTR 


Lee los campos del siguiente registro de un fichero secuen- 
cial, cargando sus valores en las variables explicitadas. 


INPUT*<n* canal>, <variable de cadena 1> [,<var 2>..] 


INPUTH45, PF VALOR$ 


LINE INPUTH 


Ñ 7 ; X 
Lee un registro completo de un fichero secuencial hasta el ca- 
rácter RETURN 


LINE INPUTH <n? canal>, <variable de cadena> 
LINE INPUTH1, L$ 
LOF 


Indica los bloques usados de un fichero directo 


LOF (<n2 canal>) 


A = LOF (1) 
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LSET 


Carga las variables de campo del buffer de un fichero direc- 
to de izquierda a derecha 


LSET <variable campo> = <variable> 


LSET NOMBRES = PEPES$ 


MXI$, MKS$, MKD$ 


Cargan en una cadena el valor de un número entero, de sim- 
ple o de doble precisión, respectivamente 


MKI$ (<variable>) 
MKS$ (<variable>) 
MKD$ (<variable>) 


PEPE$ = MKS$ (DNI) 
A$ = MKI$ (ENTERO) 


ON GOSUB 


Salta a la subrutina cuya línea de comienzo está en la pesi- 
ción de la lista cuyo número coincide con el valor que toma la va- 
fiable (de 1 en adelante) 


ON <variable> GOSUB <n2 línea SUB1>, [<SUB2>....] 
ON POS GOSUB 1000, 2000, 3000 


ON GOTO 


Salta a la línea cuya posición en la lista coincide con el valor 
que toma la variable (de 1 en adelante) 


ON <variable> GOTO <nf2 línea 1>[,<n? 2>. ] 


ON LIN GOTO 100, 200, 300, 400 
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OPEN 


Establece la apertura de un canal lógico, Hay muchas sintaxis 
posibles. Las más comunes son: 


O Ficheros directos 


OPEN “R”4+ <n* canal>, "<nombre>”, <longitud registro> 


OPEN “<nombre>”, AS[+] <n2 canal>, LEN =<longitud 
registro> 


OPEN “R”, 41, “DISCO.1”, 150 


9 Ficheros secuenciales 


OPEN “<modo>”, ++ <n2 canal>, "<nombre>”" 


OPEN "<nombre> FOR “<modo>” AS <n* canal> 


OPEN 'T, fl, "PEPE" 
OPEN “O”, $2, SALIDA$ 


PRINTR 


Escribe en el siguiente registro de un fichero secuencial el 
contenido de la lista de variables 


b 
PRINTH <n2 canal>, <variable de cadena 1>[¡<var2>..] 


PRINTH1, NOM$*",APELL$ 
PRINTH3, AFB$ 


PUTR 


Escribe en el registro dado de un fichero directo el valor de 
las variables definidas en FIELD 


PUTR<n2 canal>, <n? registro> 


PUTHS] 
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RND 


Obtiene un número pseudoaleatorio. Si la base es nula repite 


el último número 
RND (n? entero) 


VALOR = RND(5) 
REPITE = RND(0) a 


RSET 


Carga las variables de campo del buffer de un fichero direc- 
to de derecha a izquierda 


RSET <variable campo> = <variable> 


RSET VAR$= JUAN$ 


RTS 


Devuelve el control al programa que llamó a la subrutina jus- 
to en la línea siguiente a aquella desde la que se realizó la llamada 
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TABLAS DE CONVERSION 


¡usted ha logrado el listado de un programa que 
le interesa, pero que está escrito en una versión 
del BASIC que no es la que tiene su propio or- 
denador, o bien simplemente desea ver de qué 
otras formas se pueden expresar determinadas 
instrucciones, las tablas que adjuntamos le se- 
rán de gran utilidad. 

Están incluidas en ellas las equivalencias de to- 
das las instrucciones vistas en los dos volúme- 
nes del “y llegó el BASIC”, ordenadas alfabéticamente, para los si- 
guientes equipos: 


APPLE 
COMMODORE 64 
MSX 

IBM-PC 


QL 
SPECTRAVIDEO 
SPECTRUM 
AMSTRAD 664 
MACINTOSH 
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<3UAYISUA?=<OdAYI 30 3IEVIYVA) 1351 a <T8OHONO DO TIUI3I$I e 15H 
¿00143314349 <IHNON) > $9 J4000HHOI 
«CIUAMON) a 314dd 

<3 104 149n7=<6d443 30 TIGYIBUA? 1351 307 qual 
11 «230 IVA "IC TIIBUIEVA) CONGA 30008 AMONI 3NIT | <NOIS34dX3)=<TIBUIEVA? <NOISI8dX)=<T NINA di HSDINIIVN 
10" CZTTEVISUAS ICTTTIVIMIA) E<TONO 30 "NOE EMGNI 3NIT | <NOISIUIXD>=<ITEBIAYA? <NDISIIAD=<TTBVIBAD +99 OUYISHO 
<N0ISI44XD)=*3 1841 N0A 137 ENYLJ3dS 
C***CZ3T8UIBGAD ICTITOYINGAS <TONGO 30 NE LNONI NIT | (NOISIUIID=<TIGUIBOA) <NOISIMAX3)=<TTOVIGVA> LIT | 0301APILIIAS 
¿NOISIYAAD=<T VIUDAS <NOISINAXT)=<T BY ISO 7 Ei] 
109 CEATNIAEO IC TITAPIANA) ECTONGI JURA AMNÍ ANITA | <NOISIMSAD)=<TIBVIAVAS <NOISINAD TAS IT dd - KEI 
10" CZTVIBTNVAS “ICI TIGOIAGA> CC TUNDO 0 NDE LMONI 3NIÚ | <NOISI9AXD=<ITIVIGGAS  <ROISIU DIV LI ¿SU 
<NOISIGdD)=<TIBFIAYA) <NOISINAXD>=<TIGPIAVAD IT | 49 38YOCONKOI 
¿NOISI84X33=<TIUIGVA) <NOISINAI=< TEVIAVAS ¿31 J1ddY 


BLMANT NIT 


(CS343139809 30 UN30UIA) N3T 
(5383130409 30 YN30932) N31 
((S343100899 30 YN30YIA) N3I 
((SIU3LO0BYO 30 4N3OYIZ) NT 
(CS383L0YUYI 30 YN30YI) NT 
(CS3UdIOUYO 30 UN3QUIA) N3T 
((S343100499 30 $N30UI7) N3l 
(25343130999 30 UN30YT7) NG 
(CSIUILOVURO 30 UNIIYIA) NY 


(5343170909 30 YN30Y1%) N37 


<NDIS38dX39=< 3190 INTA) 


(XU30ULA Y SINSLOOAO 
((U3VULX3 Y S183L994Y 


((Y308L13 Y S393LI0O 


(CIL Y 5343LI9U0 


(<33081X3 Y 538319040 


EEE EN EEN 


0 30 OU2HIN “<YNIOYI>) 31431 
2 30 04IHANO <UNICYD) 61431 


1 30 DYNAMO “<YN30Y9)) 4.931 


(CU3OULXS Y S3Y3LI0UV) 30 DUZHNN? CUN3OYO?) $1331 


9 30 DUSHNNO <UN20937) 51437 


(CU3VHIXI Y S3UALIVAVO 30 OBIHANO <YNIOWO)) 61337 
(XU3UYLI Y S3N3LIGY8VI 30 OMIMAN? *<CUNIONDO $437 


9 30 033801 *<4H3099)) 41931 


HSO1NI IVA 
$79 (WUISHO 
MnYI33d5s 
DIIAVILIIAS 
Bi] 

Id - Wal 
XSM 

+7 FUDCONNOJ 
Nddt 


(<TWUIIVAD) SIAM 


(«TY IVA?) $ DAN 
<TEYIADAD) STAN 


(31801990) $148 


1" CZGINIO 30 OM3MANO *I<IGINIT 30 O83HON> 81509 <NOISIAAX3) NO 
0" CZYINIA 30 OB3HANO “ICTWINIT 30 DUZHAN) ENSOS <NOISIVAX3) NO 


C**CZG3NIT 30 DS3IMONO “ICTYINIT 30 OYAWIIN) 8NS09 <NOISIHAX3> NO 
C**CZNINIT 30 OYIMANO “ICIMANIA 30 OMANNN) ENSO9 <NOISIUAXZ? NO 
E**ECZOANIA 30 OUIMANO “ICTUINIT 30 OYAMIIN) ESOS <NDISIYAX3> NO 
0" Z0INIA 30 OU3MAN> “ICIVINIT 30 OYMNN? 4NSOS (NOISIUAIZ) NO 
C***C293N17 30 DI3NANO “I<IVINIT 30 OU3MAN) 8NSOS <NDISIVAX3> NO 
0" CZYINIT 30 DUSMAN) “ICTH3NIT 30 DU3WN)> ESOS <NDISINAII) NO 


0**CZ93NIT 30 OB3MANO “I<IYANTT 30 ON3MINS 8NSO9 <NDISINAX3> NO 


<Y3NIT 30 OS3HAN) 8509 OY NO | <YINIT 30 OSIMAN> 0109 4OYHZ NO | (<TIPIIVA))SSAN 
<03N11 30 OS3HAN> 81509 HOYY] NO | <BINIT 30 OYINAN> D109 YOYY] NO 


<43N11 30 O43NAN> 81509 YOYA3 NO | <Y3NIT 30 OBINAN? OLO9 YOYY3 NO 


<03NI1 30 OY3MMN> ENSO9 YOYUZ NO | <YINIT 30 OÍ3MAN)> 0109 30483 NO | (<TIGVIIVA)) $SAN 
<03N17 30 OY3MMN> 81509 M04M3 NO | <B3NIT 30 OYIHAN?) 0109 $0Y8 NO | (<ITEVIAVA>)SSAN 


<93NI1 30 OBSHNN> 8N509 YHINO <Y3INIT 30 OYIMAN? 0109 483NO 
<Y3N11 30 DB3MNA? 4n509 HOYH3 NO | <Y3NIY 30 OJIMNN> 0109 YOgH3 NO | (<31AVIYUA>)$SAN 


(C4IPELA Y SIAZLDGOO) 30 D43HANO CYIONIAZ Y MILDOEYO HHIEd) *<ONZOVO) 51M 
((UIVELI Y SINILIVEVI 30 DINAR) CHIPHLAZ Y MALIGNOI HAHIVA) “CPNIOYI)) $014 


(IBHIBVAD) GAN 


(Cd308LXS Y S39ILIVYYO 30 ONIHNN) <43VYLXS Y NILOVEOI HIMIUA) “CUNIOOI)) SIN 
((43IVULXS Y S3YILOVUVO 30 OS3MAN) <83083 Y HALOVAVI HINA) “<UNIOVO)) $01H 
(CUIVYLXI Y SINILDVYDI 30 ONIMNN) *<U3VNLXA Y BILIVUYO YINIMO) *CUNIOYO)) $01H 
((U3VYLX3 Y SIUTLOVUNO 30 OSIMNNO CUIVULAZ Y YILOVUYT BAHIA) CUNIOVI)) SIM 


(CU3VALIS Y SIYILIGNVIO 30 DNINON) <BIVHLIZ Y Y3LDVNVI MARIS) “C9NZOGD)) SO 1H 


EEE 
ERRADA 


((U3VULIS Y SIYILIVUYO 30 DSIHAN) USUAL Y BILDVEVO E3MIIAO *<PNTONDO) 50 | 


(ST 4IEYA)) $0 


HSOLNITON 
479 0UALSHO 
MNY1J34S 
030149419345 
v 

dd - MAI 
XSM 

+9 34OAOHHOI 
dei 


HSOLNIJUN 
499 CUULSHY 
MNLI3dS 
030144419345 
Y 

1d - M8l 

SH 

+9 3YOCONNDI 
3ddY 


HSOLNII0H 
+99 0VALSHY 
HNYLIIAS 
03014041345 
10 

Já - Hal 
15M 

+9 THOIOMNOS 
ERA 
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PAU ld el au? DNI e MUI BE 


«(04151938 30 348H0N>= 10N3d0 


<TUNGI 30 DIIBINOS SY <O00W> HOds<ONIHITA 30 JUGHON>T *<DAILISOSSIO)j0 N3dO 
«<OY3HIIA 30 JNOHON). “CTONEI 30 OUJMNNDINIAO 

JCOHIHDIS 30 JHON). <TONEI 30 OU3KINE*<000W)» NIdO 

<TONYI 34 DYZHIO? SY <0004) 803+<O43HIIA 30 39AMONOL *<DA11150951093. N3d0 


:q- d* 5 
O og arN «CONIHITA 20 JUGHON)» “CTONOI 30 OMIMINOE*.<DOOM> NadO 
3p ofeuew ap sopueuos so] || ajddy ja uz (.) (1) <OYIHIIA 30 JNAMON?> NIdO 
(sa[erduandas SOJay)Ij EJPG) Nado 


(041519342007) ' «<IYEHON) + CIONYI "NAS nda NIdO 


(nó 


<DULSI9IN *9N07)<OYIHTIIA 30 JNGHOND» CTONDO “NOR e Ya Nado 


“d9-1810 ap sopipadadd “se/JajoeJeo 
ap seusepes 0109 UezI un as SoJayoly 


ap olauew sp SOpueulos so] || ajddy ¡a uz (,) (9 vuafzug'zus*yul*<ODUIHOIA 30 3UGHDN>» NadO 


(033911p 05893) ap s0Jaylij PJed) Nid0 


0 SZVANIT 30 OY3HMNO óI<T9INIT 20 OY3HON? 0109 <NOIS34AX3> ND 
1" CZ3NIT 20 OB3MNNO*I<TU3NIT 30 OH3MIN? 0103 <NOISIYAMI> NO 
1 ZHANIA 30 DMINOROICTYINIT 30 DBMAN) 0109 <NOISINAXI)> NO 
0 ZRINIT 30 DHIMANO “ICTUANTT 30 OH3MAN? 0109 <NOISIYAX3> NO 
0" ECZRINIT 30 OYIRANO "ICIVINIT 3 OYIHAN) 0109 <NOIS3NdX3> NO 
0" CZGINIT 30 OYIHN?I<TW3NIT 30 OYIHAN) 0109 <NOISI4AX3? NO 

“E 2293INTT 30 083JMON> “ICIVANIT 30 OMIHMN) 0109 <NOIS3HAX3) NO 
E CZVINIT 30 OUIHAN) ICIBINIT 30 DYIRMNS 0109 <NOISIUdA37 NO 


107 CZGINTT O HIMNO PICTRINIT 30 083HNNO D1G9 <NOIS3HAX3> NO 


AED 


$99 0UUISMB 
HANALI3ds 
030140819348 
0 

ld - Mal 

ASH 

$9 FHDIDKMOI 
3iddH 


HSOLNIIWN 
$99 OUALSMO 
MNuLd345 
"ENTRES 
es 

1d - Hal 
XSH 

19 39000440) 
Ndd 


HSOINIJVN 
$99 (UHLSMO 
KNULIAdS 
030140413345 
ñ 

dd - H8l 

XSH 

$9 F4000HKDI 
1d4de 
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Nuñida | C<Y3NIT 30 OUIHNN)] 3NOLS3Y | 0*** <ZITEVISVA) “ICITTAVIVYA) (IN 
Náñi3a | [<Y3NIT 30 OUIMON)] 301534 | C***<ZTIBNIAVA) ICTITOVINGA) 0UIY 
EEN T9D1S3Y | 1***ZTTOYIMOAD ICTITAVIAVA) 0U3Y 
NGNiZY | [<Y3NIT 30 DUJMON)] 34DIS3H | 1***<ZITOYINBAD “ICTITENIAVA) (63Y 
N8Ni3g | C<Y3NIT 30 OMIMAN)] 3M01SIH | [***<ZTMBIIOA IXTITENTUVA) 043Y 
NEñi3a | [<93NIT 30 OYIHON)] JNOLS3H | 1***<ZT VISA ITITENIAVAO (Y3N 
Nani3a | T<93NIV 30 OYIMNN)] 3WDISIH | 1" <ZTIOPIAYA? ICIITANIUVAO QUIN 
NN 39DLSIY | 0***CZIMIPIEGA) ICITTEVIYNAS 093 
NuNL3Y 9OIS3Y | 1% <ZIRUINVAS ICTITAVIAVAS QYIY 


NSNI3A 4 [<Y3NII 30 O43ANN> 3901538 + TGIAOA) ITTTIGUIAYA) 038 


<04151934/30*0>“CIUNYI 30'NELNG 205) a CICUSNIN)» CTÓNGO 30 OMANANDS LNTUG 


099 CZITOVIAVA) “IC IITAVIUDA 


10" CTATEGINDAD “ICTTTAYIUGAD LE) <IIVSNIM)  “CTUNUO 30 OY3MINOS INTA 
100 CZIMOYISIA “ICITVAPIUGA LEC ICUSNAMO » CIUNGO 30 OSMANDE 1NIWA 
10? CZITOUINA) FICTTIOYIAYA CES) CILUSNIMO » “CTONGO 30 DUSHINOE INIMA 
[09 CZIIVINVAS ICITTOGIIGA> CY CIPUSNZM > “CTUNEO 30 DUZMNN)E INIYA 
19 ECZITOVIADAO IX TITIGIAGAO CE Y ILUSO + E INTA 

119 CZITOVIAGA) ICTTIOYINVACÍ) CIPUSNIM). INIUS 


HiNI4d 


<08ISI338 30*N>C1NYI 30 "NENA 


¿04151938 30*N>“CTUNYO 30 “NOELNd 


«CFIUIUOA)» INISA X INIVA »CIPYSNIN). INIUd Ú1NIUS “INIUS INIUd 
<IUBIUYADA INIYA X 1NIWd «<3PYSNIN). INIUd SINIUd INIUA iNlud 
«<TIGYIUYA)» INIVA Y INIMO +CICUSNIN)A INIWA ÉLNIVdA “INIWd 1NTU4 
«<AIEVIVVA da IMIWd X INIWd e<3PUSN3H)» iNIdd ÍINIMd “ININA ¡NIWd 
«CITOYIEVA) > INIUS X 1NIUS «CICISNIMD» INIMd Í1NIVA “INIWA 1NIWd 
«<ITEUIMYA 2 ANTAS X INISd «<HPUSN3N). INIVd ÉiNIMd “INIA 1NIMd 
»«<TIVIAVA)» INIVA X 1NTUA «SICOSMIN)» INIGA TINIWA *INIVA 1NIHA 
«TUVISVA)» 1NIUd X IMIWd »CJMUSNIN)» ININd ÉiNI4d “INIMd 1NINd 
«(IVYIYVA)= INIVA Y 1NIVA «SIMVSNIM)» INIA íIMIVd “INIVA 1NIVd 


ÁTIGUIdUA)a INTO X 1NIWd «<3DUSNIM?» ÍNTid 'UNIVd “INIA INIdd 


[*** «201909 1IXTOLYO)CIUNVI 30 DUSHNNDEILIYA 
1***£Z0190) 10.190) TONGI 30 OVINA RALIJA 
<AVUBV) VIVO «<UHVUODUd 30 JUEMON)» 3AYS 
<D190) <TUNGO 30 OUIMONORINIVA 
<D190><TONEI 30 DUHINRLNIVA 
<OL00) <TUNGO 30 OYIMANDELN IAS 
<0L0> <TONYI 30 OY3IMIN A INIAS 
<DIV> CTONGI 30 OXINONSEINTUA 
<3BENON> 31148 


<0190)'<14NEJ 30 OYIHNNDELNTAd 


HSOLNIION 
199 (VJASHY 
KN4IJAdS 
03I01A041IIAS 
m 

dd — Mal 
X5H 

19 JUOOONNOD 
id 


HSOLNIIN 
$99 CUYISH 
ANYLDIdS 
030149413305 
o 3 

1d - WEI 

ASH 

v9 JUOIONHOO 
Tddt 


HSOLNIJON 
+99 0VILSHE 
KNYIDIAS 
OS0IADUIDISS 
Mii] 

dd - HEl 

IM 

19 JUOCONROO 
E 
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<Nav189A>=<0dHYa 30 JIIYIYVA> 1354: 


<31VIVUA>=COdMYI 30 TIVINYA? 1358 


<WWIEBA>=<D4NYI 30 TIGUIVVA> 1358 
<YISUA)=COdHYI 30 TIGVIYVA? 1358 


<OYISUA)=<0dNVI 30 FIGUIYVA> 135Y 


cc (IN | (0)YBS | (X2)MIS HSOLNIIVN 

(C0INOL | ((X0)48S | (<X>INIS 199 OYELSHO 

«<IGIMON e ASIA | (<INVL | (03805 | (IDIMNIS ANYIIIdS 

«HUMOR» ¿090 | (OIL | (01805 | CODINIS | 030IABUITIAS 

IDINOL | (<X2J8YBS | XIDINIS nl] 

(0001 | (CO)40s | (IDINIS dd - Ml 

«CIYIMON) > ¿OYOTI | (<X>INYL | ((X7I80S | (<XSINIS 15H 

Cs(03183419Id)+ "Da <INGHON)> AJIEA | (COINGL | (<X0)WBS | (<XDINIS | 09 J8OCOMNOI 

«CIYOMONO > ASISÍA | (<X2INOL | (<X0)YBS | (<x2)KIS 3JddY 
«CIUOMONS > ASI83A | (IDINL O) (007805 | (<IOINIS 

«CHJOMON)= 3AYS | <03NIV 30 O83HMN> NNA HSOLNIDVH 

J<38BHON) + 3495 | <YINI 30 OYIHAN> KN 199 (YULSHY 

«CUGHEN)» FAYS | <Y3NIT 30 O3UNN> NAS MNYIIIAS 

«<IYGMON) *(OJ18I31U3d)= 3405 | <Y3NIT 30 OS3MNN> AÑ 0301404 1J345 

«CJUANON) <OJINIJIVIS)» 3AYS | <VINIT 30 OSIHAN> NN mi] 

a IHONON> *<001933183d7= FAYS | <Y3NIO 30 DYNAMO NS Já - Mal 

«CJUANON>"<ODIS34IEIS)> FAYS | <W3NIT 30 OB3MNN> NM XSM 

(0014341934) <IMENON)» JAWS | <Y3NIT 30 OYIHONO NOE 49 TUDUOHHOI 


I<OMILISOS OSIMAN>IHOONGA 


[<0AILISOd DSIMAN> JONA 
E<0ALIISOd DIZMAN) JUNG 
E<0ALLTSOS OY3HAN?I0NY 
E<OMILISOd OUINAN>10N8 


(<OATLISOS OYIMNN) JONS 
E<DAILISOS D4IMAN>I0NY 
EXOAT1ISOd 08IHAN>10NY 
E<DAILISOS OYIHAN) TONY 


E<OAT1ISOS DYIHNN>JONY 


«CIBEHON)S FAS | <Y3NIT 30 OYIHAN> NS Nddt 


SAYS | <03NIT 30 O43MMN> Ad — Na 


(CHIVU LIS Y SIYILIVAYI 30 OYINNN> “<UN3OYO))51H91Y HSOLNIIVH 
(CUIVHLXZ Y SIGILIGHYO 30 O83HNN) “<UNIIYI)) $LHOIY 199 OYULSHY 
HAYIDIAS 

(CPU Y SI83LI98Y) 30 DUIHON) “CONIOYISIHDIE |  OJQIAVALIIAS 
- s Y 
(OIYEDG Y S38ILIGUYO 30 DM3MINO “<UNa0YI)) SIHSIA 1d - WEI 
(CAJUYIS Y SINTLIGEYO 30 ONINON) (9NIIGIO) $15 1Y XSM 
(CUAL Y SIU3LIS0) 30 O43IMON) “<UN30YO>)S1H9IE | $9 JYOIOMMOS 


(CUIGALIS Y S3UILIGAVI 30 OMIWIN) <UN20UD)) $ 1HBIY Jlddy 


(CU3VULIS Y SI8ILIVAVI 30 OBINAN>*<UN30YT?)$1H913 
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Libros recomendados para el BASIC, la informática y los 
ordenadores personales 


Esperamos que la lectura de las dos monografías relativas al 
BASIC en general hayan conseguido el objetivo que pretendían: 
proporcionarles un cierto conocimiento de este lenguaje y, quizá, 
animarles a escribir por sí mismos algún pequeño programa. Si, 
por el contrario, no se siente todavía con el dominio suficiente 
para desarrollar un programa, al menos le será más fácil compren- 
der los listados de los numerosos programas que encontrará pu- 
blicados en las revistas especializadas o de los cuales tenga una 
copia en cinta. 

Estamos convencidos, no obstante, de que su interés por la in- 
formática de los ordenadores personales está solamente en sus co- 
mienzos y querrá saber mucho más, Estas monografías satisfacen 
dicha necesidad y, sin un compromiso de lectura profunda, podrá 
encontrar en ellas un poco de todo lo que es actualidad en los or- 
denadores personales. 

Si, por el contrario, hemos despertado en usted un mayor in- 
terés por el BASIC, entonces le aconsejamos leer.otras obras que, 
con mayor dedicación, profundizan mejor en las materias y situa- 
ciones diversas. Una recomendación que siempre repetimos es la 
de leer con atención los manuales que se suministran con los or- 
denadores. Somos conscientes de que a menudo están demasia- 
do resumidos, redactados en inglés o, peor todavía, mal traduti- 
dos. Pero al menos en dichos manuales encontrará las instruccio- 
nes específicas del ordenador que utiliza. 
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A continuación deseamos facilitarle una serie de obras inte- 
resantes que se refieren a casi todos los fundamentos de la infor- 
mática (nos disculpamos si algunos están con su título en inglés) 
y también indicamos algunos textos de fácil consulta que se re- 
fieren a la programación en BASIC de ordenadores particulares. 


Programación en BASIC: un método práctico. 
Dachslager y Zucker. Anaya Multimedia. «.. 


Diseño de gráficos y videojuegos. Tratamiento en tres dimensiones. 
Angel y Jones, 1985, Anaya Multimedia. 


Programación avanzada en BASIC, 
Bishop. Anaya Multimedia. 


El libro del IBM, PC, XT, AT. 
L. E. Frenzel Jr. / L. E. F renzel II, 1985. Anaya Multimedia. 


Diccionario de informática ingles-español-francés, 
G. A, Mania, 1985. Paraninfo. 


Diccionario del BASIC, 
Willie Hart, 1985, Paraninfo. | 


Como programar su COMMODORE 64 1 - BASIC, gráficos, sonido, 
F, Montell, 1985. Paraninfo, 


Como programar un COMMODORE 64 2 - Lenguaje máquina, E/S, pe- 
níéricos. 
F, Montell, 1985. Paraninfo. 


Tratamientos de textos con BASIC, 
G, Quaneaux, 1985, Paraninfo. 


Informática para no avanzados. 
G. Wilimott, 1985, Deusto. 


102 programas para su APPLE. 
Desconchat, Elisa, 


Claves para el COMMODORE 64, 
D, Gean David. Elisa. 


COMMODORE. 64, para todos, 
Boisgontior Brebion Foucault. £hsa. 


Los ordenadores, Fundamentos y sistemas. 
]. C. Giarratano, 1984. Díaz de Santos. 
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Conceptos actuales sobre la tecnología de los ordenadores. 
J. C. Giarratano, 1984. Díaz de Santos. 


Diccionario de informática ingles-español. Glosario de términos infor- 
máticos. 
Olivetti, 5, Edic, 1984. Paraninfo. 


Como prograrmar ordenadores personales. 
R. Farrando, 1985, Marcombo. 


Diccionario de informática, 
Masson, 2. Edic, 1985. Masson. 


Glosario de computación. 

Alan Freedman, 1984, McGraw-Hill. 
Diccionario del BASIC, 

A. Lien. Ed. Elisa. 


Claves para el Appe Il 
Breaud-Pouliquen, Ed. Elisa. 


Claves para el Commodore 64. 
D, J. David. Ed. Elisa. 


Claves para el ZX-Spectrum. 
]. Francois Séhan, Ed. Elisa. 


El BASIC de la A a la Z. 
J. Boisgontrer. Ed. Elisa, 


Commodore 64 para todos. 
J. Boisgontrer. Ed. Elisa 


102 Programas para Commodore 64, 
J. Deconchat, Ed. Elisa. 


102 Programas para ZX81 y Spectrum, 
J. Deconchat. Ed. Elisa. 


El Apple y sus ficheros. 
J. Boisgontrer. Ed, Elisa, 


Microordenadores y cassettes, 
M. Salem. Ed. Noray. 


Profundizando en el ZX-Spectrum, 
D, Jones. Ed, Noray. 
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BIBLIOTECA BASICA INFORMATICA 


INDICE GENERAL 


Dentro y fuera del ordenador 

Todo lo que debemos saber para poder comprender 
en qué consisten y cómo funcionan los ordenadores, 
Diccionario de términos informáticos 

Una perfecta guía en ese «maremagnum» de palabras y 
frases ininteligibles que se usan en Informática. 

Cómo elegir un ordenador... que se ajuste a nuestras 
necesidades 

Las características y detalles en los que deberemos 
centrar nuestra atención a la hora de elegir un 
ordenador. 

Cuidados del ordenador... cosas que debemos hacer o 
evitar 

Esos consejos que le evitarán problemas con su 
equipo, permitiéndole obtener el máximo provecho. 
¡Y llegó el BASIC! m 

Un claro y senciliv acercamiento a los principios de 
este popular lenguaje, 

Dimensión MSX 

El primer BASIC estándar que ha conseguido difundirse 
de verdad no es sólo un lenguaje; hay bastante más. 
¡Y llegó el BASIC! (ID) 

Instrucciones y comandos que quedaron por explicar 
en el la parte 1. 


8 Introducción al Pascal 


Una buena manera de adentrarse en la programación 
estructurada, ¡la nueva ola de la Informática! 


9 Programando como es debido... algoritmos y otros 


elementos necesarios. 


Ideas para mejorar la funcionalidad y Eno de sus 


programas. 


115 


116 


10 


1 


= 


12 
13 
14 
15 
16 
17 
18 
> 
20 
21 
22 
23 


24 
25 


Sistemas operativos y software de base 

Qué son, para qué sirven. Unos desconocidos muy 
importantes. 

Sistema operativo CP/M 

Uno de los sistemas operativos para microprocesadores 
de 8 bits de mayor difusión en el mercado. 

MS-DOS: el estándar de IBM 

Sistema operativo para el microprocesador de 16 bits 
8088, adoptado por el IBM-PC, 

Paquetes de aplicaciones. Software. “pret a porter” 
Características y peculiaridades de los más importantes 
paquetes de aplicaciones. 

VisiCalc: una buena hoja de cálculo 

Interioridades y manejo de una de las hojas de cálculo 
más usadas. 

Dibujar con el ordenador 

Profundizando en una de las facetas útiles y divertidas 
qué nos ofrecen los ordenadores. 

Tratamiento de textos... para escribir con el ordenador 
Cómo convertir su ordenador en una máquina de 
escribir con memona y todo tipo de posibilidades, 
Diseño de juegos 

Particularidades características de esta aplicación de 
los ordenadores. 

LOGO: la tortuga inteligente 

Un lenguaje conocido por su «cursor gráfico», la tortuga, 
y sus aplicaciones pedagógicas al alcance de su mano. 
BASIC y tratamiento de imágenes 

Todo lo que en ¡Y llegó el BASIC! no se pudo ver sobre 
las imágenes y gráficos en el BASIC. 

Bancos de datos (I) 

Peculiaridades de una de las aplicaciones de los 
ordenadores más interesantes, y que más dinero 
mueven. 

Bancos de datos (II) 

Profundizando en sus características, 

Paquetes integrados: Lotus 1-2-3 y Simphony 

Estudio de dos de los paquetes integrados (Hoja de 
cálculo + base de datos +..) más conocidos. 

ABASE II y dBASE II 

Cómo aprovechar las dos versiones más recientes de 
esta importante base de datos. 

Los ordenadores uno a uno 

Un amplio y completo estudio comparativo. 

Cálculo numérico en BASIC 

Una aplicación especializada a su disposición. 


+ 


26 Multiplan 
Cómo hacer uso de este moderno paquete de 
aplicaciones. . 

27 FORTRAN y COBOL 
Dos lenguajes muy especializados y distintos. 

28 FORTH: anatomía de un lenguaje inteligente 
Principales características de un lenguaje moderno, 
flexible y de amplio uso, en la robótica, 

29 Cómo realizar nuestro propio banco de datos 
Conocimientos necesarios para poder fabricar un 
banco de datos a nuestro gusto y medida. 

30 Los paquetes integrados uno a uno 
Todos los que usted puede encontrar en el mercado. 


NOTA: Ingelek, S. A. se reserva el derecho de modificar, sin 
previo aviso, el orden, título o contenido de cualquier volu- 
men de la colección. 
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enemos la seguridad de que muchos de 
nuestros lectores estaban esperando an- 
siosos este segundo volumen dedicado al 
BASIC “de andar por casa” de nuestra co- 
lección. Efectivamente, en “Y llegó el BA- 
SIC... ”” quedaron muchos temas por tra- 
tar: subrutinas, funciones, instrucciones 
de salto, ficheros, etc., que ahora vamos 
a estudiar. También incluimos una tabla de equivalencias 
de las instrucciones vistas para distintos ordenadores. 

Dado lo amplio de la temática irán apareciendo su- 
cesivamente otros volúmenes de la B. B. I. dedicados a 
profundizar en muchos de los aspectos que han apareci- 
do en los tomos l y II de “Y llegó el BASIC”. 


375 pts. 


